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AS- 1000 

o micro que cresce com voce. 









CARACTERISTICAS TECNICAS: 

• 16 K bytes de memorial iniciais 

• Expansao interna para 32 e 
48 K bytes 

• 8 K bytes de memoria EPROM 

• Microprocessador Z 80 A 

• Tec I ado de membrana com 
a^ao mec^nlca posttlva 

• 40 teclas e 154 /undoes 

• Basic e llnguagem cfe maquina 

• Video normal ou reverso 

• Saida para qualquer impressora 

• Manlpula ate quatro cassetes 
com gera^ao de arquivo 

• Modem 
Joystick 



• Speed File 

• Fonte i 



‘ de alimentacao 
embutida (110/220 volts) 

• Nivel de leltura de grava^ao 
automatlco 



O Microcomputador AS-1000 
e uma otima escolha para quem esta 
iniciando na clencla da computacacx Seus 
recursos de programacao e sua concepcao 
modular, porem, permitem que ele 
o acompanhe ate as aplicacoes mais 
sofisticadas. 

O AS-1000 ja nasce com uma biblioteca de 
milhares de programas para jogos, 
administracao domestica, aplicacoes 
comerciais e profissionais. 

O AS-1000 e fabricado com a qualidade 
ENGEBRAS e garantido por um ana 

Entre na era da informatica com a escolha 
certa. AS-1000, o seu micro pessoal. 

Escreva-nos, sua correspondencia nao ficara sem resposta. 

B ENGEBRAS 

eLetronica e informatica ltoa. 

Rua do Russel, 450 - 3.° andar 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 



Cobra apresenta 

SUAMAQUNA 
DEVENCER CRISES 
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De repente. voce descobre que a crise e geral. 

Crise no faturamento. porque as notas fiscais sao emitidas muito 
devagar. Crise na folha de pagamento. porque as aiteragbes 
salanais sao cada vez mais frequentes. Cnse no planejamento 
financeiro. estrangulado pela irregularidade da cobranga e a 
pressao dp contas a pagar. 

E de crise em cnse voce descobre que chegou a hora de uma 
decisao inadiavel : a compra de um Cobra 305. o microcomputador 
profissional. 

0 Cobra 305 poe sua empresa em ordem num apertar de dedos. 
Ele emite notas fiscais. controla o estoque. faz o faturamento. 
programa a cobranga e o contas a pagar. faz a folha de pagamento. 
elabora os mapas de vendas. controla a comissao dos vendedores. 



emite as guias para recolhimento de impostos e encargos sociais. 

T udo com muita economia de custo e nenhuma chance de erro. 

Como voce ve, o Cobra 305 nao faz milagres. Ele apenas permite 
que voce tenha informagoes atualizadas o tempo todo e possa 
tomar suas decisoes com mais seguranga. 

Se voce tambem quer sair da crise pela porta da frente. contate a 
Cobra e assista a uma demonstragao do Cobra 305. o micro 
profissional. 



Cobra 305 profissioi 
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• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 
INFT. PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM II 
• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8088 CARD 
■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MICROCRAFT MICROCOMPUTADORES LTDA. 

ADMINISTRAQAO E VENDAS: AV. BRIG. FARIA LIMA, 1.664 - 3? ANCAR - O 316 - CEP 01452 
FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 
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| qCICLOTRON: SUPERE 
IOeSTA BARRA! — Um jogo 
de dupla bastante criativo este 
que Hendy Takeshi Yabiku nos 
traz para a linha TRS-80 
modelo III Muito reflexo e 
tiradas estrategicas serao 
necessarias na perseguigao 
implacavel que se travara entre 
voce e seu adversario. 



>|PESCARIA EM AGUAS 
^^TELETRONICAS — Pescar 
um lazer solitario e relaxante 
por excelencia. Foi este clima 
que Nelson Hisashi Tamura 
procurou passar para este jogo 
que roda nos micros da 
linha Sinclair. 





UM TECLADO A MODA 
CASA — Voce podera 



redefinir o teclado de seu 
micro compativel com o Apple 
precisar modifica-lo a nivel de 
hardware. E o que nos mostra 
Carlos Alberto Diniz com o 
utilitario que desenvolveu para 
final idade. 



DA 



sem 



esta 




JOYSTICK: FUNDAMENTAL 
OU ACESSORIO? — 



MICRO SISTEMAS lan^a a duvida 
e tece comentarios a respeito 
das questoes que rodeiam 
o mercado national . No mesmo 
artigo. um box sobre os mais 
recentes modelos de joysticks 
norte-americanos. 



-| y| A VENTURAS EM SERRA PELADA — Programa 
A^Vde Renato Degiovani. 

^^MR. AMPERSAND — Artigo de 
^©Nelson Filho. 

^r|AR RISQUE E PETISQUE COM SEU MICRO — 
^©Artigo de Wilson de Carvalho Junior. 



LOJAS DE MICROCOMPUTADORES — 



Iff 

Parte final da tabela. 
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Artigo de Evandro Mascarenhas de Oliveira. 
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^ZrHelvecio C. R. Netto. 
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justavo Egidio de Almeida. 
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Programa de Walmir Scaravelli. 
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Programa de Armando Neves. 
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rde Claudio Esperan^a. 

BOLA DEMOLIDORA... REBATA ESSA! — 
Programa de Luiz Gonzaga de Alvarenga. 

^qCIRCUITO DE FORMULA I — Programa de 
O^Daniel Jose Burd. 

*7^RESISTA AO ATAQUE — Programa de 
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#Paulo Prado Junior. 
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N o editorial do numero passadoje - 
chamos 83 mencionaruio a evo- 
lugao do mercado brasileiro de 
microinformdtica no que diz respeito a 
industria de equipamentos e perifericos 
e as empresas de prestagdo de servigos e 
comer cializagao , hem como, principal- 
mente, referindo-nos as revistas especia- 
lizadas e seu lugar de destaque enquanto 
fonte de informagoes. 

Muitas vezes informagoes sdo difi- 
ceis. Dificeis no sentido de que a indiis - 
tria ndo as divulga. Dificeis pois muitas 
vezes os manuais sdo omissos ou pouco 
explicativos sobre determinados assun- 
tos. Dificeis enquanto houver a tenden- 
cia de se repetirem vicios de concentra- 
gdo de conhecimento - e outras defor- 
magdes e insuficiencias socio-culturais 
dai advindas fatais por setratarem, 
no caso, de informagoes tecnicas ; sobre 
um assunto amplo e fascinante em que a 
resposta a uma duvida e prontamente 
substituida por outra interrogagdo. 

Esta tendencia e expressa por aquele 
“ achei um livro otimo , mas ndo conte 
para ninguem”, ou “fiz um programa 
fantdstico % mas ndo da para te arrumar 9 \ 
ou ainda numa situagdo conhecida: con- 




sigo uma copia do "Amigo Pirata ", ou 
de qualquer outro software de fora t e 
guard o a sete chaves; pirateio o pirata; 
ponho um anuncio classificado na revis- 
ta e deixo numa loja para demonstra- 
gdo f" vou ficar mUionarioV'); vendo 
uma ‘ matriz ’ e... das copias se encar - 
regam os outros piratas. 

Esta tendencia se explica pelos so- 
nhos que nos trazem aquela ‘ hipnose 9 
cultural de que continuamos a sofrer. 
Neste mercado , certamente nosso espe - 
llio sdo os EVA : os jogos, joysticks , im- 
pressoras , light pens, graficos de alta re- 
sohigdo, os calcs, os stars, as magds, 
amendoins , jovens miliondrios , execute 
vos degaragem e tudo mais que essa fan - 
tdstica sociedade sempre terd a nossa 
frente , em qualquer departamento ou 
setor, salvo amplas alteragoes nas rela- 
goes de convivencia intemacionais, no 
momento fora de nosso alcance de visao. 

Entretanto , ndo hd novidade alguma 
nesta revelagao. Como muitos jd tiveram 
a originalidade de dizer, ndo devemos 
reinventar a roda, donde e certo que 
rnuito do brilho dos softs, hards e peri- 
fericos que hoje ndo conhecemos, ama- 
nhd certamente jd teremos adaptado. 



Adaptado . Melhor ainda: desenvolvido, 
evoluido, criado. Chegaremos Id. 

E se os veiculos de informagao espe- 
cializada conseguiram o referido suces - 
so, desejamos comegar 84 homenagean - 
do aqueles que efetivamente nos tern 
ajudado a crescer. A eles MICRO SISTE- 
MAS dedica sua edigdo de janeiro: nos - 
sos colaboradores, que nos tim enviado 
sistematicamente seus programas, dicas 
e descobertas. 

Consideramos que este numero refle - 
te bastante do que o pessoal tern desen- 
volvido por ai. Boas telas, bom movi- 
mento, apresentagoes que demonstram 
preocupagdo com clareza de instrugoes. 

Podemos garantir ao leitor um bom 
divertimento ao longo de nossas paginas, 
e ficamos aqui ansiosamente aguardando 
suas impressoes. 
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Estes sao os pianos de expansao para o seu Unitron ap II. 

Sem demora nem fila de espera, basta voce fazer a inscri<;ao que 
eles come^am a funcionar imediatamente. 

Plano 1 - Expansao de memoria com + 32 ou + 64 ou + 1 28 K. 
Plano 2 • Impressora paralela de textos ou graf icos. 

Plano 3 - Microprocessador adicional 2 - 80 (CP/M). 

Plano 4- Videocom40ou80caracteresporlinha. 

Plano 5 - Interface RS-232C para impressora ou comunica<;6es 

(liga<;ao via MODEM - redes ou grandes computadores). 
Plano 6 - Disco flexivel de 5 1 /A" ou 8" - (isolados ou simultaneos). 
Plano 7- Disco rigido (Winchester 5Mb). 

Plano 8 - Saida de video d cores PAL-M ou RGB . 

Plano 9 - Sintetizador de voz e sons . 

Plano 10- Digitalizadordeimagens. 



expansao ap][ 




Mais um servi^o Unitron. 



A 



Sbotote A*ooo Id 7*9 16*4 Ateo Til 7*00671 Comp-Shop »d 710-01*7 Comp** Id *57*790 Compv*.lo«d Id 7313777 Co*pvt*«. Id 731 3977 t*lo Id *76 1499 Eo-po Id 770 7566 Eo*o loo Id 37 7702 U 
Id 770-061 1 imotet Td 61 0946 (dormoi Td *1406*7 Mop pm Id 75*4411 M«rothop Id 7*7 7105 No« G*ro<6o Id *14 3663 091 Id 7*07966 *'o<«<*a Id 545 5496 9r6ftetr6oKO Id 771 7137 S~m~o< Id 772-151 1 
too id *14059* T >9# , Id 717 9572 Tr**oq Id 759 7600 CwnpMM • Compv*q»o Id (01971 37 3*10 Om~ Id (0197)37 77*6 Compete** Id (0197)31*49* t,« <*• Jon*»o Ctoppy Id 071. 7533170 M*ro fo-po Id 
071 767 37*9 Id 071 767*791 Co*npw*><|u« Id (071)767 1093 Alto Id (071)399 6330 CompwMflond Id [071)551*947 *ote Homonto - Compooty Id (031(776 6336 Compvi«o«.i Id <031- 775 3305 M<<o%hop Td 

(031 777 78*9 Cwntibo • Co«**«»o Id (041)7765616 Comp-t.o-* Td 041)74^1731 londrmo Comoro Id (0437)730065 *•<>♦• • Otxc.no Td 0*1)376 931* Mxrothop Id 0*1 376 '575 Sol*o6o* 0«K{.no Td 071 74*6666 
-Comp-d*©. Id (061)773717* Cwtefc* • M«rcx*o*o Id (065(377 9713 too Alo«>« - Advooong Id (0517)761194 Comp-md-o Id .0512(77 5061 JotovJte - Co—cto Id <0474)33 7570 






Enxadrista expenente. Luciano NHo de An- 
drade j* escreveu para os jornais "Corneio da 
ManhS". ~ Data News" e " Ultima Hora" e pa 
re a revista "Fatos & Fotos". Luciano 4 econo 
mista. traba/hando no Ministtrio da Fazenda, 
no Rio de Janeiro. As opinides e comentirios 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
pu tad ores. estarSo sempre presen tes em 
MICRO SISTEMAS 



Um micro alemao 
na Uniao Sovietica 



A revista de xadrez 64 de setem- 
bro, editada em Moscou, traz 
um artigo de B. Pimonov apre- 
sentando o micro SC-2, fabricado na 
Republica DemocrStica Alema pela fir- 
ma Funkverk. 

Depois de citar as possibilidades do 
micro, comuns aos de sua classe, o Dr. 
Bernd Braw, representante da fSbrica, 
disse: "Gostaria que nosso filho agradas- 
se aos aficionados soviet icos. Temos es- 
peranga de que eles o comprem". 

Pimonov conta que o aparelho levado 
d redagao da revista foi aprovado com 
§xito. De bela aparencia, ele resolveu os 
problemas que Ihe foram apresentados e 
ganhou uma partida do fotbgrafo. 

A seguir, reproduzimos a partida jo- 
gada por Pimonov, de brancas. Nao foi 
mencionado o nfvel em que o micro 
jogou, isto 6, a relagao tempo/jogada. 

B. Pimonov x Micro SC-2 
Abertura Giuoco Piano 

1 - P4R P4R; 2 - C3BR C3BD; 3 - 
B4B B4B; 4 - P3BD C3B; 5 - P4D 
PxP; 6 - PxP B5C+; 7 - C3B. "Inicial- 
mente pretendia jogar 7 — B2D, mas 
resolvi verificar se o micro conhecia a 
velha continuagao italiana". 7 — ...CxP; 
8 — 0-0 BxC. "Parece que conhece. De 
outro modo, seguiria a continuagao de 



Greco 8 — ... CxC). 0 que sabe ele do 
ataque Muller?" 9 — P5D. "Mas aqui me 
lembrei que, com a resposta 9 — ... C3B, 
as brancas perdem um peao". 9. — ... 
C4R; 10 - PxP CxB; 11 - D4D. "De 
pois desta jogada, ofereci empate". 

■■■■■■■■■■■■■■■■■■■■ 




PosiQao depois de 11 - D4D. Infe/izmente , o 
precoce empate nSo per mite avaliar a forga do 
SC-2. O que ocorreu mais parece um teste de 
memorizaoSo. 



Respondendo ao leitor 



Nelson Adriano Brazys, de Sao Pau- 
lo, leitor desta segao, pergunta o que 6 o 
Elo e como o mesmo 6 medido. Como 
esta pergunta 6 formulada freqiiente- 
mente, farei um resumo a respeito. 

0 objetivo do Sistema Elo (ou sim- 
plesmente Elo), criado pelo Prof. Arpad 
Elo, da Hungria, 4 estabelecer um m^to- 
do estatfstico para medir os resultados 
enxadri'sticos obtidos por cada jogador. 

Utilizando instrumental matem^itico, 
6 calculada a expectativa do jogador em 
fungao do seu Elo com os demais. Se 
seu resultado for superior ao esperado, 
seu Elo sobe; caso contr^rio, seu Elo 
desce. Se for igual ao esperado, seu Elo 
permanece inalterado. 

0 Elo reduz erros e maestria t^cnica 
a simples numeros (para desespero de 
numeroso contingente de enxadristas). 
A uma partida ganha com t^cnica impe- 
c£vel ou com combinagao brilhante e 
profunda 6 atribufdo o mesmo valor da 
que 6 ganha por um jogador que, depois 
de estar em posigao perdida, vence em 
virtude de erro grosseiro do advers^rio. 
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Imaginagao, intuigao, maestria nao 
influem nos resultados tabulados. 0 Elo 
mede s6 os resultados e nao o talento. 

Alguns dos requisitos necess£rios e 
mais comuns para a obtengao de Elo por 
um jogador novipo sao: participar de 
torneio com pelo menos nove rodadas; 
metade dos competidores, pelo menos, 
devem ser titulados; 1/3, no mSximo, 
pode ser da mesma federapao; ter, no 
m^ximo, 20% de jogadores sem Elo; a 
competipao deve ser dirigida por um 
Srbitro internacional; nao mais de 45 
jogadas para duas horas; nao mais de 
uma partida por dia (em casos excep- 
cionais sao permitidas duas). 

£ considerado com forpa de GM o 
jogador com Elo a partir de 2.450, Ml a 
partir de 2.350 e MF (Mestre da Fide) a 
partir de 2.250. 

Henrique Mecking (Mequinho) 6 o 
jogador brasileiro de maior rating 
(2.626). A seguir vem Sunye com 
2.480, Trois com 2.395 etc. 

Aos ex-campeoes do mundo foram 
computados os seguintes Elos: Steinitz 
(2.650), Lasker (2.720), Casablanca 
(2.725), Alekhine (2.690), Euwe 
(2.650), Botowinnik (2.720), Smyslov 
(2.690), Tahl (2.700), Petrosian 
(2.690), Spassky (2.680) e Fischer 
(2.780). 



Sutilezas em finais de pedes 


Scholz x Lorenz 
Correspondence, 1964 




Svacina x Muller 
Viena, 1941 








Diagrams A - As pretas /ogam e ganham 


Diagrams B — As pretas jogam e ganham 


SOLUC0ES 


(19d d*d ~ P) ujbmubB a j a9d 

D9d d x d - E '±Sd (\15d d*Dd ~ Z) OEU - S : i94d OZO - P -d x d 9tr0 - £ 

d x dd - Z -i9Sd - l - 9 bujbj6b!Q JjUSd 0 x d - Z : id x 0 - l “ V eujBj6B!a 

■ 



EL 8000 



Se seu problema e impressao. 



A ISA, Industria de Impressora S/A, apresenta a EL 8000 
a impressora que prova na pratica sua capacidade de 
trabalho. Impressao matricial 9x7, permitindo at6 
8 vias numa velocidade de 100 CPS. Equipado com /////{'* iis • / 

memoria de 2 K caracteres, utilizando formulario / / / // ' ' ' 

continuo folhas soltas ou bobinas de papel. De 7 //// / f 
80 at6 132 caracteres por linha; interface 
serial RS 232 e paralelo. Velocidade 4 

de comunicapdo de 9.600 B.P.S. 

8 diferentes tipos 
de impressdo. 






*** t i 



iSAe 
a solucao. 

SlSA 

INDUSTRIA DE IMPRESSORAS S.A. 
Escntono 

R Prof Jost M«rqu*s da Crui. 234 
Fabric a 

Rua Centro Afncana. 74 
Tels (011)240 2442 S43 4939 
Tele* <01 D 36926IIIM BR 
Sao Paulo S P 




OECODflTfl 



SHMH* M »*OCIU*M(NTO M OAOOt I miCOMWINCACdO 

MATRI2 Rio de Janeiro R Republica do Libono 61 12 and 
Tel <021)221 4677 Tele* <021) 30187 
FIUAIS S Paulo R FreiCaneca 1119 Tel <011)284 8311 Tele* <01 1) 22191 
Brasilia SCS02 BlocoCn 41 SL 01 Tel (06D22S1S88 Tele* (061 > 1 160 
Porto Alegre Rua Santa Teretmha. 300 Tel (051)32 3S64 Tele* (051) 2144 

Goiama Belo Homonte Salvador 
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O sorteado deste m§s, que receberft uma 
assinatura da um ano de MICRO SISTEMAS, 
6 Pedro Paulo Luz C. Filho, de Brasilia. 



NE-Z8000 



(...) Tendo comprado um NE-Z8000, da 
Prolbgica, e nao dispondo de muito tempo 
para manuse4-lo, ia tudo bem. At6 que co- 
mecei a utiliz6-Jo mais e af surgiu um proble- 
ma que se foi agravando com o tempo: na 
digitapao de programas mais longos, o cursor 
sumia juntamente com a imagem, e s6 reapa- 
recia se eu desligasse e tornasse a ligar o mi- 
cro. Assim foi, at6 que um dia a imagem de* 
sapareceu de vez. 

Depois de procurar vdrias oficinas t^cni- 
cas e nenhuma assumir a responsabilidade 
pelo conserto, resolvi abri-lo e tive uma sur- 
presa das mais desagraddveis: vi o que se po- 
de chamar de uma verdadeira "gambiarra", 
onde v$rios CIs nao estavam soldados d pla- 
ca do impresso, mas sim colados, de pernas 
(pinos) para cima, em outros CIs. Como isto 
s6 nao bastasse, havia v4rias partes do circui- 
to impresso interrompidas e eram feitas pon- 
tes para outras partes do mesmo (...). 
Reginaldo dos Santos Chaves 
Volta Redonda-RJ 




Enviamos, como sempre, sua carta para a 
Prolbgica, e esta respondeu: "Com relapao a 
sua carta enviada para a conceituada revista 
MICRO SISTEMAS, gostarfamos de esclare- 
cer-lhe no que diz respeito ao nosso equipa- 
mento. 

Como todo equipamento eletrbnico, o 
NE Z8000 pode apresentar defeitos, e o pro- 
cedimento correto para solucionar esse pro- 
blema 6 levfi-lo a uma assistdncia tfenica au- 
torizada Prolbgica, onde tfcnicos especiali- 
zados e treinados pela Prolbgica irao repa* 
rar seu micro sem nenhuma dificuldade. 

Com relacao aos CIs que nao se encon- 
tram no circuito impresso, isso 6 decorrdn- 
cia de modificagao no projeto original, uma 
vez que estamos continuamente procurando 
aprimorar nossos produtos. 

A re solupao grftfica do NE-Z8000, que 
V. Sa. considera um grave defeito, assim nao 
nos parece, uma vez considerada a relapao 
custo-benef fcio." 

Eng. Dan Guin4>urg 

Gerente de Produtos-Computadores Pessoais 
da Prolbgica 



TK PRINTER 



(...) Minha crftica 6 quanto ao fato de ter 
encomendado uma impressora para o TK no 
dia 11/01/83, na Tesbi Engenharia Ltda., 
pagando no ato da encomenda a importan- 
ce de 47 mil cruzeiros, e at£ a presente data 
nSo terem entregue tal encomenda (reclama- 
pao baseada no prazo de entrega de 90 dias), 
tendo que solicitar meu dinheiro de volta. 
Ricardo Alexandre Marinho 
Rio de Janeiro-RJ 




Mandamos a sua carta, Ricardo, para a 
Microdigital e para a Tesbi. Respectivamen* 
te, nos responderam: 

"Gostarfamos de informar que a respon- 
sabilidade de tomar sinal por conta de um 
produto nosso 6 do revendedor". 

Ricardo Tondowski 

Dept, de Relapoes Pbblicasda Microdigital 

"Com relapio A carta do leitor, expcmos 

0 seguinte: 

1 — Nao 6 nossa culpa se a Microdigital 
anuncia produtos e depois nao os fabrica, 
deixando seus usudrios insatisfeitos; 

2 — Nao entendemos a crftica do leitor co- 
mo sendo para a nossa empresa, pois ele nos 
pareceu claro com a sua insatisfapao nao por 
ndo ter tido seu dinheiro devolvido, e sim 
por nao ter podido adquirir a impressora. 

Assim como este, virios outros usuirios 
se sentiram trust rad os por nao poder adqui- 
rir a impressora para o TK, mas em hora al- 
guma os revendedores podem arcar com tal 
responsabilidade, sendo que efetuamos a de- 
volupao a todos que solicitaram (...)". 

Angela Cristina Belsito 
Dept. Comercial da Tesbi 

PROTEXTO NO DGT-100 



Gostaria de registrar junto a MICRO SIS 
TEMAS, e aos leitores desta conceituada re- 
vista, meu desgosto, e talvez ignorSncia, 
quanto ao programa PROTEXTO, proces- 
sador de texto desenvolvido (?) pela Digitus. 
Possuidor de um DGT-100, adquiri o referi- 
do programa numa revendedora autorizada. 
O manual com instrupoes 6 bem razo4vel 



A melhor casa do Rio para 



Os executivos que vem ao Rio, principalmente a negocios, agora podem contar com 
uma casa que transforma sua rapida passagem pela cidade maravilhosa em 
momentos inesqueciveis. Em pleno corapao de Copacabana, estamos de brapos 
abertos e prontos para oferecer dos mais simples aos mais sofisticados modelos e 
acessorios que fazem nossa atividade tao excitante e tao imprescindivel nos dias atuais. 
Oferecemos o que existe de melhor, em termos de qualidade. E a prepo e condipoes de 
pagamento ( e, nos flnanciamos ) que nenhuma outra casa do ramo oferece. 

Nossa filial da Rio Branco tambem tern o mesmo atendimento e o mesmo prepo. 

Quando voce estiver no Rio, passe bons momentos conosco. Nossos prepos sao tao 
em conta que de repente a diferenpa da para cobrir seus custos de passagem e estadia. 
Voce e sua empresa vao descobrir como e fantastico, e barato, o mundo dos 
microcomputadores. 

Veja esta oferta ai ao lado, por exemplo. 

0 ApII da Unitron e a solupao perfeita para as pequenas, medias e grandes 
empresas, profissionais liberais, condominios e o dia-a-dia do lar. 

E solupao tambem no prepo. Na Clappy , voce encontra o ApII pelo menor prepo da 
prapa e com macro solupoes de pagamento. 



Clappy 

Copacabana: Rua Pompeu Loureiro, 99 

Centro: Av. Rio Branco, 12 • loja e sobreloja • Tels.: (021) 

253-3395 • 2574398 • 236-7175 • 264-2096 






Uh mas ocorreu o seguinte: ia tudo bem 
ati qua, apbs ter gravado um texto em fita 
K-7, tentei recuperi-lo. N So consegui suces 
so, apesar de possuir o programa hi dois me- 
ses, e depois de virias tentativas. 

0 programa “aborta" e nao hi nem meio 
de dar o RESET. Fui ati a revendedora au 
torizada e tentei com um computador e gra- 
vador diferente*. constatando, entao, que o 
mesmo erro acontecia li tiimbim. Ji enviei 
uma carta i Digitus, que ficou sem resposta 
ati agora. Ficaria muito grato se vocis pu- 
dessem me ajudar. 

(...) Li recentemente em uma publicapao 
norte-americana que o mesmo problema es- 
tava acontecendo, mas com outro programa, 
que i o EDTASM versao 1.0. Como acredi- 
to que os programa* da Digitus sejam basea 
do* em similar es norte-ameicanos. ocorreu* 
me que o mesmo pudesse acontecer com o 
PROTEXTO. Quern sabe? 

Pedro Paulo Luz C. Filho 
Brasflia-DF 

Remetemoi, como i nossa norma, aia 
carta para a Digitus, que nos respondeu: 
“Em atendimento a vossa solicitapao, inf or 
mamos-lhes qua o programa PROTEXTO 
funciona normalmente no DGT-100, sendo 
posslvel que a gravapao em poder do Sr. Pe- 
dro Paulo esteja danrficada. Para resolver o 
problema, ji remet emos nova fita ao usuirio. 

Gostarfamos, entretanto, de esc la racer 
que somente agora foi to mad a uma atitude, 
em vista de nao termos recebido a carta ci- 
tada pelo Sr. Pedro Paulo, pois esta nao 
consta do nosso Irvro de registro de entrada 
de correqx>nd4ncia. Informamos ainda que 
este assunto - cartas recebidas dos usuirios 
— muito nos preocupa e tomamos cu id ad os 



especiais para que todas sejam respond id as, 
sendo, portanto, muito diffcil que uma cor- 
respondincia nio seja respond id a ou stand i- 
da. 

M a reek) A. Batista 
Diretor da Digitus 




Solicits mos que o seu prestigioso vefculo 
de informapSo, a revised ICRO SISTEMAS, 
retifique a colocapao feita pelo leitor Ivo de 
Aquino (publicada na Sepao Cartas de MS 
n? 25, com o tftulo “A funpao USR(X)"), 
pois o revendedor autorizado da Prolbgica 
em Florianbpolis e na regi&o sul de Santa 
Catarina i nossa empresa (Entel Engenharia 
de Telecomunicapbes Ltda.). 

Jos 4 Mendes Damian 
Diretor Comercial da Entel 

Gostarfamos de inf or mar que, por nosso 
lapso, esquecemos de verificar que no texto 
dos a nuncios veiculados em MS de junho e 
julho de 1983 constava a informapao de que 
o Engenheiro Cesar da Costa era o coordena- 
dor dos cursos de Ticnicos E specialist as em 
Manutenpao e Programapao de Minis e Mi- 
cros de nossa instituipao educacional-Enge- 
micro. Sol ici tamos a retificapao desta in- 
formapao pois, desde marpo de 1983, o 
Engenheiro Cesar da Costa nao coordena 
mais estes cursos. 

Alex Damazio 
Diretor da Engemicro 

Agradepo ao pessoal de MICRO SISTE- 
MAS por ter publicado o meu anuncio na 



Sepao Clubes, o qual esti dando um retorno 
acima do esperado, evidenciando mais uma 
vez a penetrapao da revista no meio micro- 
inf or matizado. 

Rodrigo Cesar Santiago 
Belo Horizonte-MG 

O ob jet ivo desta 4 parabenizar essas con- 
ceituadas entidades, ou seja, a Micromaq e a 
MICRO SISTEMAS, pel a inigualivel idiia de 
proporcionar a n6s, leitores, a maravilhosa 
oportunidade de sermos con tempi ados com 
um equipamento como o Color 64: al esti 
um exemplo de ilimitada considerapao. 

0 meu desejo sincero 4 que o Senhor 
Deus concede, a cada um de voces, mente 
aberta e o maior angulo de visio posslvel, a 
fim de que o sucesso e a funcionalidade seja 
uma constants no desempenho diirio dessa 
tao honrosa tarefa, que 6 fazer com que a 
nossa Napao seja embalada pelos bravos da 
Informitica. 

Valmir Rodrigues da Silva 
Sio Bernardo do Campo-SP 




U) Hi uns meses atris comprei o micro- 
computador Maxxi, da Polymax. O proble- 
ma 4 que nio consigo entrar com cor nos 
meus programa* grificos. Entrei em contato 
edm a loja e depois com o fabricante, e am- 
bos me disseram que 4 problema do modula- 
dor de RF, que nao funciona em deter mi na- 
dos lugares. 

Fiz modificapoes na minha TV para eli- 
minar o modulador, e mais uma vez fiquei 
decepcionado, pois, mesmo sem modulador. 



executives de alto nivel. 




unitron 



CPU com 48 k, drive, monitor, impressora Monica da EHebra. 564 ORTN’s 

Entregamos em todo Brasil pelo reembolso Varig. 

10 as 15 boras. 






GLOBUS 

Ideal para qualquer 
microcomputador 
existente no 
mercado. 



Impressora M-100 X 
de 132 colunas 




Impressora matricial de impacto com 
velocidade de 100 cps e impressao de 
132 colunas. 



Finalmente em produto 
Nacional com performance 
inigualavel: 

• Velocidade real de 100 cps 

• Cabega de impressao 
de 9 agulhas 

• Sustentador de cabega de 
impressao em duplo eixo 

• Capacidade grafica 

• Flexibilidade de software 

• Interface dupla: 

Paralela e Serie 

• Compatibilidade Epsom e 
pacotes Apple II 

A Globus produz linha 

completa de impressoras para 

todas as aplicagoes, alem de 

dispor de pegas de reposigao 
para entrega imediata. 



G © 

Z GLOBUS OIGrTOL S.P. 

EQUIAAMENTOS KRltfAlCOS 

MUITO MAIS DO QUE MAQUINAS 
SIGNIFICA SERVigO 

Matriz e Fabrica: Rua Isidro Rocha, 1057 
CEP 21241 - Tel : 372-4385 - Telex (021) 31991 
GLDG - BR - Vigario Geral - RJ - Brasil 
Filial: Rua Stella. 515 - Bloco H - Grupo 21 
CEP 0401 1 - Tels.: (011) 231 -2586/571-4642 
Vila Mariana - Sdo Paulo - SP 

VASTA REDE DE DISTRIBUIQAO 




nao consigo entrar com cor. Comprei o com- 
putador baseado em propagandas (como a 
da revista MICRO SISTEMAS), onde, al6m 
de outras caracterfsticas apresentadas, enfa- 
tiza-se a disponibilidadfe de 16 cores em mo- 
do grAfico baixa resolugao, selecion£vel por 
software, e mais seis cores quando em modo 
grdfico alta resolugao funcionando no siste- 
ma Pal-M. 

Espero contar com a revista para que es- 
ta carta n§o f ique somente como um apelo. 
Nabor dos Santos 
Campo Grande-MS 

Como 6 de praxe, enviamos sua carta pa- 
ra a Polymax, e esta nosdeu as seguintes in- 
formagdes: "O Maxxi 6 capaz de gerar cores 
em dois sistemas: 

1. Sistema Pal-M: verde, azul e sous deriva- 
dos. 

2. Sistema N linha: verde, azul, vermelho e 
seus derivados. 

O sistema de cores adotado pelo Brasil 6 
o Pal-M. O sistema de cores do nosso micro- 
computador 6 o NTSC (sistema utilizado 
nos Estados Unidos), adaptado ao sistema N 
linha e Pal-M para que possa ser utilizado 
nos televisores nacionais. 

O sistema N linha 6 o sistema NTSC ope- 
rando com cristal Pal-M na frequdncia de 
3,57561 ? MHz. O sistema Pal-M gerado pelo 
Maxxi foi acrescentado para o usudrio nao 
ter o trabalho de modificar seu televisor pa- 
ra o sistema N linha. A desvantagem da nao- 
modificagao 6 a falta da cor vermelha no tele- 
visor. O Maxxi no sistema Pal-M nao gera a 
cor vermelha. 

Quando o computador nao i rar as cores 
no televisor, a causa mais provfr jI 6 o cristal 
oscilador estar fora da freqUdncia de cor. Pa- 
ra ajustd-lo, siga as seguintes instrugoes: 

1. Remova a parte superior do Maxxi, reti- 
rando os quatro parafusos de fixagao que se 
encontram na parte de baixo; 

2. Na parte traseira do lado direito do Maxxi 
existe uma abertura para as conexoes. Entre 
a parte traseira e o painel metdlico traseiro, 
no centro, existe uma trava; localize-a visual- 
men te e destrave-a; 

3. Na parte frontal no lado de baixo do 
Maxxi existem duas pequenas aberturas. 
Com uma chave de fenda, destrave as travas 
contidas nas aberturas; 

4. Remova lentamente a parte superior da 
caixa. Repare que o teclado tambdm esta 
fixo a parte superior e o cabo de conexao do 
teclado com a placa do Maxxi esta na parte 
inferior ao teclado: todo cuidado sera ne- 
cessario para nao desconecta-lo. Se vocd qui- 
ser desconecta-lo, certifique-se do modo co- 
mo esta conectado para nao invertd-lo na 
hora da conexao. Levante a parte superior 
da caixa at6 a altura do painel metaiico tra- 
seiro, desloque um pouco para a direita at6 
visualizar parte da placa no lado esquerdo. 
Ap6ie a parte superior no prbprio painel; 

5. Conecte o cabo de video de seu televisor 
no Maxxi; 

6. Conecte a unidade de disco no slot 6, e 
carregue o programs Color Demosoft para 
gerar as barras de cores. Caso nao tenha a 
unidade de disco, faga um programa grdfico 
com cores; 

7. No lado esquerdo frontal da placa do 
Maxxi, na posigao entre A1 e B1 , existe um 
capacitor varidvel chamado trimmer. Com 
uma chave de fenda pequena, ajuste-o fazen- 



do movimentos para a direita ou para a es- 
querda atd a cor aparecer no televisor. No 
caso de aparecerem alguns caracteres irregu- 
lares no televisor e das barras de cores nao 
desaparecerem do video, continue ajustan- 
do. Se, por algum momento, a condigao grd- 
fica desaparecer do video e o programa pa- 
rar, recomece todo o processo de ajuste des- 
ligando o Maxxi, ligando-o novamente e car- 
regando o programa. 

Na borda esquerda da placa do Maxxi, 
existem marcadas letras de A at6 FeosCIs 
da placa sao contados da esquerda para a di- 
reita, sendo que o da esquerda 6 o N.1 e o 
mais d direita 6 o N.14. Oriente-se por estas 
marcas para localizar o Cl. 

Se as cores ainda nao aparecerem, veri- 
fique na posigao FI 4 da placa do Maxxi, no 
lado direito do Cl 74LS259 se o Resistor 
6 de 1 K. Se nao for, substitua-o. 

Observagao: os valores dos resistores sao 
representados por cores, por exemplo: 
1 K = marrom, preto, vermelho e dourado, 
sempre nesta seqiiencia, sendo sempre a 01- 
tima cor metdiica. Se nesta tentative as cores 
ainda nao aparecerem, comunique-se conos- 
co que teremos o maior prazer em aten- 
dd-lo." 

Antonio Carlos Masotti 

Dir.de Planejamento e Marketing da Polymax 



SUGESTbES 



Gostaria de propor d Redagao de MS a 
organizagao de um curso de ALGOL, para 
divulgar esta linguagem. Tambdm gostaria 
que a revista publicasse a sugestao para que 
algumas empresas ou cursos fizessem uma 
reportagem sobre o hardv\«re de todos os 
micros existentes no mercado, para que as 
pessoas que nSo tern possibilidade de com- 
prar um micro possam conhece-lo por den- 
tro. 

Ben-Hur Monteiro Barizon 
Rio de Janeiro-RJ 

Gostaria de fazer uma sugestao: voces 
poderiam publicar uma materia na qual es- 
tabelecessem uma correspond4ngia entre os 
micros nacionais e os estrangeiros, ou seja, 
os compatlveis estrangeiros com os nacio- 
nais. Estou certo de que ser£ de grande aju- 
da para os novos e pequenos usu£rios, prin- 
cipalmente na escolha dos programas. 
Rodrigo M. de Andrade 
Rio de Janeiro-RJ 

Sou estudante de Engenharia e apaixonado 
por micro. Estou realmente satisfeito com a 
qualidade da revista, mas tenho uma suges- 
tao: por que voc§s nao publicam reporta- 
gens sobre cada tipo de BASIC de cada mi- 
cro? 

Jos6 Roberto Pereira de Santana 
Rio de Janeiro-RJ 

Queria sugerir uma segao $6 de jogos, ou 
uma publicagao especial de jogos que, acho, 
6 o desejo de muitos outros leitores de MI- 
CRO SISTEMAS. 

Marcos K. Watanabe 
Guarulhos-SP 

Sugiro a implantagao de uma materia 
que tivesse um gloss4rio de termos usados 
em microcomputagao, para servir como fon- 
te de consulta para todos os leitores. 

Jos4 Roberto Pereira de Santana 
Rio de Janeiro-RJ 





Envie sues sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida do ^ 
possfvel, viabilizft-las. 
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S-600 


P-720 


TRAQADOR 

GRAFICO 


MICRO: 

• LINGUAGENS COBOL. 
BASIC E FORTRAN 

• 64 K DE MEMORIA 

• DUAS UNIDADES OE 
DISCO 


& ^ 

IMPRESSORA: 

• VELOCIDADE 130 CPS 

• MATRIZ 7x9 

• 132 COLUNAS 

• ORIGINAL +6 COPIAS 


• VELOCIDADE 200 CPS 

• MATRIZ 7x9 

• INTERFACE: 
PARALELA, 

SERIAL 


• 8 PENAS 

• AREA DE TRACADO 
10 x 15 POL. 

• INTERFACE R&232 



I 



AC ESSO RIOS 

SOFTWARE • MESAS • DIS- 
OUETES • ARQUIVOS • 
FORMULARIOS CONTI- 


APROVEITE! 

promocOes ESPECIAIS • 
FINANCI AMENTO • LEA 


f ilcfGS 


NUOS • ESTABILIZADORES 


SING • CONS0RCIO • CAR 


Filcres Importatpao e Representacpoes Ltda. 


DE TENSAO • UNIDADES 


TOES DE CREDITO: CREDI- 


Rua Aurora. 165 - CEP 01209 - Sao Paulo - SP 
Talax 1131298 FILG BR - PBX 223-7388 - Ramais 2,4, 


DE DISCO FLEXIVEL • ETC. 


CARD. NACIONAL, ELLO. 


12, 18. 19 - Diretos: 223-1446, 222-3458, 220-5794 a 
220-9113 • Reemboljo — Ramal 17 Direto: 222-0016 — 220-7718 












Se voce se ju/ga com coragem e capacidade para garimpar dias a fio, eis aqui 
sua grande chance. Mas lembre-se de que tudo vai depender de sua sorte e inteligencia 



Aventuras 
em Serra Pelada 

Renato Degiovani 




e voce achou que um pas- 
seio pela Selva Amazomca 
era tudo, pode lr se prepa- 
rando, pois nessa aventura 
voce serd um incansavel 
ganmpeiro em busca do ouro e da for- 
tuna, mas antes sera preciso algum 
trabalho de digita$ao. 

Comcce pelo “Aventuras na Selva” 
(MS n9 23). 0 texto dizia que se gra- 
vassc em fita o Sistema Operacional e o 
Monitor. Pois bem, carregue-os no com- 
putador e proceda as altera 9 des constan- 
tes na listagem 1. Essas modifi canoes 
servem para tornar o Sistema Operacio- 
nal ainda mais poderoso e com ele exe- 
cutar algumas a^des bastante com pie - 
xas. 



Feito isso, digite RUN 9000 e come- 
ce a operar a entrada de dados do Moni- 
tor. Quando terminar, eiimine o Moni- 
tor, apagando as linhas de 9000 a 9070. 
A partir daqui, NUNCA MAIS use RUN 
nem CLEAR, pois se o fizer, mesmo aci- 
dentalmente, todos os dados dos direto- 
nos estarao perdidos e o programa para- 
r i com a mdica^o 2/11, ou seja, varii- 
vel nao defimda (O) na linha 11. Daqui 
n2o hi sai'da e voce terd que recomesar 
todo o trabalho. 



Ainda quanto a digita^o, va sempre 
com muita calma e certifique-se de es- 
tar digitando tudo corretamente. Erros 
de digita^o sao face is de ocorrer, mas 
difi'ceis de ser localizados. 



Listagem 1 



1 REn SIST* OPERACIONAL - V.2 
3 REPI niCRO SISTEHAS - 1984 
6 SAVE "SERRA PELADA" 

20 IF NOT INT (RND*55) THEN GO 
TO 800 

21 IF T(l)< 204 THEN GOTO 30 

22 PRINT AT 6,1; " INFEL IZHENTE 
0 GARinPO DE SERRAPELADA F0I FEC 
HAD0. 

AGORA VOCE TE 
RA QUE TENTAR NUHA0UTRA TEHP0RAD 
A 0U PR0CURAR UH NOVO GAR IRP0. 

E UHA PENA HA 
S A VIDA E ASSIH HESH0- " 

23 PRINT AT 20,0; "PRESSI0NE: ", 
"0OUTRA TEnPORADA" , "HN0V0 GARinP 
0" 

24 PAUSE 4E4 

25 CLS 

26 IF INKEY$="N" THEN GOTO 7 

27 G0SU8 5000 

28 LET T(l) =0 

29 GOTO 20 

55 IF C<LEN US THEN GOTO 51 

220 LET B=B+1 

221 IF A=P THEN RETURN 

222 GOTO 262 

351 LET T(A) sT(A) 4-C0DE U$(B*l)- 
K 

401 IF B$(2) s" = " OR B S ( 2) *"♦" T 
HEN GOTO 405 

402 GOTO 420 

405 IF B$(2) ="♦" THEN LET T ( 3) * 

0 

406 IF Bl (2) ="=" THEN LET T(4)= 



407 LET US=U$( TO 2) ♦"R"*B$(2) ♦ 
"DR" 

408 GOTO 120 

420 IF NOT COOE B$(2) THEN GOTO 

56 

602 IF U$(11)="W THEN GOTO 650 

603 PRINT " El II 1 1 QUE EXP 

LOSAO NAO DEVE TER SO 

BRADO nUITA COISA NO LOCAL." 

604 FOR A=1 TO 0 

605 IF A=ll THEN GOTO 607 

606 IF US(A)=U$(11) THEN LET US 
( A ) =" " 

607 NEXT A 

608 LET US(ll)*" " 

609 GOTO 20 

650 PRINT "ACHO QUE ISSO E 0 FI 
n. FOI BOH ENQUANTO DUROU. ••",,, 
," DA PROXIHA VEZ NAO BRINQUE CO 
n EXPLOSIVOS." 

651 STOP 

800 IF NOT T ( 3) AND NOT T(4) TH 
EN GOTO 30 

801 PRINT ,,,," 00000PS....",, 

,,"""B0CA DE TRAIRA"", 0 HAIOR L 
ADRAODAS PARAGENS ATACOU NOVAHEN 
TE. FICAHOS A ZERO." 

802 LET T(4)=0 

803 LET T(3)=0 

804 LET Ul(31)s" " 

805 LET U8 (9)=" " 

806 LET R=R-1 

807 GOTO 20 



eliminar as linhas: 102, 410, 50 
0, 501, 502, 503. 504. 
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Monitor 



Tabela de Dados do 



obsx 

um espago 

NUHERO DE POSICOES: 44 
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43 

44 



..S-.B 



> D — 1 

B~ D B 

< -0 .3 

- -H O 
../■S. 

• 1««>« 
02 . .< . 
13. JL 

.. 2 . 4 -. 

GLB-K. 

H 

. .7.0. 
69G0 . . 
9-0... 
78.. I. 
. . > G . . 
4 



3 

4 

5 

6 

7 

8 

9 

10 



.5UHA E3CADA 
D5UHA CORDA 
mm RELOGIO 
34UH TELEFONE 
D4UH nARTELO 
74UH POSTE 
-1DINHEIR0 
K4Un PNEU 



17 

18 

19 

20 
21 
22 

23 

24 



,DESAm 

•AHARR 

0COLO3 

1TEH0S 

2FACA 

3HATE 

4AQRA 

5FECHE 



16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



.12861745 
P4UH H AC AC 0 
.5UHA PE ME IRA 
P4UH CANO 
8 5 LIMA FACA 
.1GAS0LINA 
I5UHA GARRAFA 
84UH BAIDE 
I4UH COPO 
D4UH REVOLVER 
D5UNS PREG05 
.30 ALEHAO 
81CAI XOTES 
.1TAB0AS 
D5UHA PICARETA 
.10UR0 

R4lin CADERNO 
.4UH BARRAMCO 
.30 DONO 



35 34UH IS3UEIR0 



36 

37 



.5URA PORTA 
N4UH AVIAO 



30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 



9REINI 
ALE VAN 
>AP1NH 
0PONHA 
6SALTE 
<DCIXE 
9C0HEC 
3D I SPA 
3ATIRE 
/ACEND 
CHA 

>SEGUR 

2C0NST 

1TENH0 

; APAGU 

<LARGU 

CTEH 

♦ACHE 

-DESTR 

2C0NSE 

-CCRTE 

-RASGU 

DHORAS 









53 


EVENDA 








54 


FQUANT 


. . . F . . 






55 


GTR03U 


ENO... 


NUHERO DE PALAVRASs 59 


56 


HCOMPR 


P4A7. . 






57 


IGARIH 


. .P: 5. 


1 


£N0RTE 


58 


3PECA 




2 


SSUL 


59 


KDI50U 




3 


: LESTE 






Q--.4 


4 


70ESTE 






4...R. 


5 


(ENTRE 






....30 


6 


(SUB A 


nOVIHENTOS 


F 

FQ7.H. 


7 

8 


) SA IA 
)DESCA 


CONDICIONAISx 10 


P U 


9 


>PEGUE 






AVI All A A 


10 


<S0LTE 


1 


N>1H-S 


o.+.c. 


11 


sEXAHI 


2 


N>1H£S 




12 


♦R0UBE 


3 


D4 


?0 DE 0B3ET0S: 37 


13 


-QUEBR 


4 


D4 




14 


*PR0CU 


5 


L =«♦ S 


.4UH LOCAL 


15 


/LIGUE 


6 


KsHaS 


.4UP! CAHINHAO 


16 


; DESLI 


7 


L=H<5 



8 L=H2S 

9 N1PHKS 

10 N1PH8S 

NUHERO DE ACOES: 105 
1 =£G 1 1 



--it.” 

*|H* 5 


11 


D1DINAHITE 


25 


2CAVE 


3 


1.H1 

D.n( 


12 


E5UHA CHAVE 


26 


6PULE 


4 


> (c ( 


13 


L5UHA HALA 


27 


7DESHA 


5 




(>.?.. 

\ ^ AO 


14 


.1INF0RHAC0ES 


28 


BPUXE 


6 


-( H( 


15 


.12579384 


29 


BDE 


7 


= S3Q- 



8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 



E(Pl(DI*U?iY* 
ZZB=R(Q( K) F 
F»X?-D? 

ZZD( 

2S3Q-D) 

G*3Q/n*n0Y; 

ZZC*C0O?<K?F 

2*rUD> 

>*E«OKBB*F 

>0E 0B0F 

/S3C-H*T*C*D= 

>*E*B # F 

H(E ( X?B V?Y 4 

ZZB(X?7L)D; 

H?E?X?8V?Y6 

ZZB7X?7K(F 

ZZRsD, 

ZZR*T = 

>?E?N( ♦8?F 
=?(1?T?D0 
I£nDr.l0a2D3I 
EEHE35*D5 

♦ (E(3 I6DD 
♦?E?B?K( F 
>>E>N++B>F 
ZZR*B»Q *F 

♦ >E>B> K+F 
H>E >X?8 V7Y3 
ZZB> X77K+F 
2: H>H9HCR9YN 
ZZK-HHB=DQ 

♦ s35B0-C'J?£YL 
ZZRCQxF 
=0H0T0D$ 
ZZB-X77K; F 
ZZB9X77K/F 
>2E2B2F 
ZZBDX?7K*F 
>3E3B3F 
a3n3T3D$ 
>4H6D7 
ZZQ1K0F 
>7E7B7F 



51 >EEEDB 

52 ♦EEEDB 

53 HDEDX78V7YS 

54 sDHDTDDS 

55 >DEDN* +BDF 

56 ♦DED3D6DB 

57 s2H2T2D$ 

58 >9E9N/^B9F 

59 a9H9T9DE 

60 ♦9E93D6D* 

61 H9E9X78V7YQ 

62 slPllTlDt 

63 >BEBDF 

64 aBEBDF 

65 -BEBRBQCF 

66 >CECBCF 

67 =<376P<D$ 

68 .♦H+T+DS 

69 -xHxTxDl 

70 >xExBx F 

71 0GHxUxK>CxF 

72 >6E6B6F 

73 a6H6T6DS 

74 >8E8D* 

75 H8E8DG 

76 ♦8E0D* 

77 aCPICTCDS 

78 3H3D6DB 

79 3A3I6DB 

80 >-E-N; ♦B-F 

81 H-E-X7BV7YP 

82 ♦-E-3D6D* 

83 >1E1B1F 

84 /-E-0,HUS?F 

85 >/E/N. IB/F 

86 ♦/E/B/K.F 

87 s/H/T/DS 

88 4/H/T/O03YU 

89 >5E585F 

90 >IEIK,BIF 

91 sIPlITIDl 

92 E*H+3P* U?£YG 

93 =>H>T>D$ 

94 >FEFBFF 

95 sFHFTFDS 

96 4FHFTFDK 

97 3; 3HLDH 

98 K,33BDN 

99 K.33BD0 

100 43013K1F 

101 s7H7T7DS 

102 =5M5T5DS 

103 >s357DB 

104 -7H7T7R7F 

105 -5H5T5R5F 



Terminado o trabaUio, digite a Tabe- 
la de Mensagens e grave tudo em fita. As 
mstru^Oes de opera^ao do programa sao 
as mesmas do “A venturas na Selva”. 



O JOGO 



Sena Pelada 6 hoje, sem duvida ne- 
nhuma, o ganmpo mais famoso do 
Brasil e a nossa aventura tentar^ repro- 
duzir uma “busca ao tesouro” a partir 
de uma dada histona. 

“Joao dente de ouro”, um famoso 
garimpeiro, certo dia encontrou, num 
dos barrancos de Serra Pelada, uma pe- 
pita pesando algo em torno de 70 qui- 
los. O ganmpo todo foi agitado por uma 
febre de festejos e, as 3 horas da manha 
do quarto dia, debaixo de um terrivel 
tempoial, “Joao dente de ouro” sumiu. 
Uns dizem que ele foi morto quando 



tentava sair de Serra Pelada por uma es- 
trada de terra, mas outros afirmam que 
ele morreu num desabamento provoca- 
do pelas chuvas. De certeza s6 hi um 
fato: a grande pepita, que foi logo apeli- 
dada de “Divida Externa”, devido ao 
seu tamanho, nao saiu do ganmpo e es- 
t a i espera de que alguem a ache. 



DICAS 



• Quando voce estiver a procura do ou- 
ro e quiser que o computador cave, use 
a a£ao GARIMPE nesse LOCAL. 

• Se voce quiser perguntar algo ao mi- 
cro, lembre-sc sempre de terminar a fra- 
se com uma mterroga^ao. 

• Voce poderd, a qualquer momento, 
ser assaltado e ficar sem ouro e sem di- 
nheiro. Nao se desespere e continue ten- 
tando. 



• O micro nao sabe quanto ouro ele 
carrega, mas voce pode perguntar 
QUANTO DINHE1RO ele esii carregan- 
do. 

• O limite de objetos carregados pelo 
micro pode vanar em algumas circuns- 
tancias: portanto, nao se assuste se ora 
ele carregar 5 objetos ora 6 ou 7 ou 4. 

• Nao se assuste com algumas respos- 
tas do computador ; ele foi programado 
para ser um pouco genioso e nem sem- 
pre obedecer corretamente as ordens. 

• E lembre-se de que a resposta ”ISTO 
NAO £ POSSI’VEL” nem sempre quer 
dizer que a a 9 ao nao pode ser executada. 



Rena to Degiovani d formado em Comunica- 
qSo Visual e Desenho Industrial pela Pont if i- 
da Universidade Catdlica do Rio de Janeiro. 
Hi mais de um ano ut/liza microcomputado- 
res para dlculos na drea em que atua. 
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AVENTURAS EM SERRA PE LADA 



1010 PRINT "0 RELOG 10 ESTA QUEBR 
ADO." 

1015 RETURN 

1020 PRINT "E APENAS ";0$(E,3 TO 

) ,"conun." 

1025 RETURN 

1030 PRINT "ELE ESTA CON UH PNEU 
FURADO." 

1035 RETURN 

1040 PRINT "NOS TEHOS ";T(4)*372 
45;" CRUZEIROS." 

1045 RETURN 

1050 PRINT "NENHLW TOSTAO." 

1055 RETURN 

1060 PRINT "COHO EU DEVO FAZER I 
SSO 7" 

1065 RETURN 

1070 PRINT "EU NAO SOU BORRACHE I 
RO." 

1075 RETURN 

1080 PRINT "HAS EU 3A FIZ ISSO." 
1085 RETURN 

1090 PRINT "ELE NAO QUER PEGAR." 
1095 RETURN 

1100 PRINT "0 OONO NAO VAI GOSTA 
R DISSO E ELE E NUITO FORTE." 
1105 RETURN 

1110 PRINT "QUE CAHINHAO ?" 

1115 RETURN 

1120 PRINT "AQUI NAO HA NINGUEP1 
QUE CONPRE ISSO." 

1125 RETURN 

1130 PRINT "DE QUEH 7" 

1135 RETURN 

1140 PRINT "QUE BOH NEGOCIO FIZE 

nos HE in 7" 

1145 RETURN 

1150 PRINT "OK, HAS A GRANA ACAB 
0U-" 

1155 RETURN 

1160 PRINT "ELE ESTA COn 0 ALEHA 

0 ." 

1165 RETURN 

1170 PRINT "ELA TEH UH HETRO E n 
EIO." 

1175 RETURN 

1180 PRINT "SEH UHA ESCADA NAO V 
A I SER POS-SIVEL." 

1185 RETURN 

1190 IF INT (RND*15)=3 THEN GOTO 
1196 

1191 PRINT "ATE AGORA NAO ACHE I 
NADA." 

1195 RETURN 

1196 PRINT "»> ACHE I* • • ACHEIII 
IIIIII",,, "AQUI ESTA ELA, A FAP10 
SA PEPITA ""DIVIDA EXTERNA"".", 
,,,"COnO ELA E GRANDE..." 

1197 LET T( 3) =T( 3) 4-1523 

1198 LET US ( 31) = "■" 

1199 RETURN 

1200 IF INT ( RND*5) <> 3 THEN GOTO 
1191 

1201 PRINT "ACHEIII",, ,,"NAO E U 
HA PEPITA GRANDE HAS DE VEVALER A 
LGUHA COISA." 

1202 LET T ( 3) =T(3) ♦ INT (RND*5)*3 

1203 LET US(31)*"«" 

1205 RETURN 

1210 PRINT "UH DESAB AHENTO ESTA 
BLOQUEANDO A PASSAGEH NESSA DIRE 
CAO." 

1215 RETURN 

1220 PRINT "OK, HAS 0 inPOSTO SO 
BRE A VENDAFOI 9EH ALTO." 

1221 LET US (31)=" " 

1222 LET T (4) =T (4) ♦T ( 3) 

1223 LET T(3)=0 

1224 LET US(9)="«" 

1225 RETURN 

1230 PRINT "QUE ATITUDE ESTUPIDA 
ESSA ,NAO 7" 

1235 RETURN 

1240 PRINT "DE ONDE 7" 

1245 RETURN 

1250 PRINT "E UH FORD 1930." 

1255 RETURN 



Tabela de Mensagens 



1260 PRINT "SAO ";T(1)-INT (T(l) 
/24)*24; " HORAS DO DIA ";7+INT ( 
T(l)/24) 

1265 RETURN 

1270 PRINT "ACHE I 0 QUE VOCE QUE 
RIA." 

1275 RETURN 

1200 PRINT "VOCE FICOU TALUCO ?" 
1205 RETURN 

1290 PRINT "ELES COLOCARAPI GUARD 
AS PARA A PROTECAO DOS CAIXAS.” 
1295 RETURN 

1300 PRINT "ESSA PODE SER UHA AC 
AO PIUITO PERIGOSA DEVIDO AS CIRC 
UNSTANCIAS." 

1305 RETURN 

1310 PRINT "SAO PREGOS DE CABECA 
CHATA." 

1315 RETURN 

1320 PRINT "ELES SAO PIUITO PESAD 
OS." 

1325 RETURN 

1330 PRINT "PARECE QUE HA UPIA LE 
I CONTRA 0 PORTE DE ARC1AS NO GAR 
IPIPO* " 

1335 RETURN 

1340 PRINT "ACENOER COR 0 QUE ?" 
1345 RETURN 

1350 PRINT "OS GARIRPEIROS FICAR 
AO FURIOSOS" 

1355 RETURN 

1360 PRINT "ELA 3A ESTA ABERTA." 
1365 RETURN 

1370 PRINT "SECRETARIA DE RINAS 

- 2579304 CAIXA ECONORICA 

- 2061745" 

1375 RETURN 

1300 PRINT "AQUI NINGUER SABE DE 
NADA." 

1305 RETURN 

1390 PRINT """SE 0 SR DESEQA TEL 
EFONAR PODE UTILIZAR A CABINE"". 

tl 

1395 RETURN 

1400 PRINT "NINGUEH ATENDE." 

1405 RETURN 

1410 PRINT "ESTA OCUPADO." 

1415 RETURN 

1420 PRINT "A PORTA ESTA FECHADA 

• " 

1425 RETURN 

1430 PRINT "PO CARA, QUE SUFOCO, 
mS ACHO QUE CONSEGU I PEGAR UH 
POUCO." 

1435 RETURN 

1440 PRINT "OK, HAS NAO DEU NEH 
TEHPO DE SOLTAR E ALGUEn CARRE 
gou con TUDO." 

1445 RETURN 

5000 PRINT " ***************** 

»***«*«*« ****** SERRA PELA 

DA ****** ***************** 

* **• ** * ***»».»«»' hose e ° Ifl 

7 E VOCE TEH QUE ACHAH A FAP10SA 
PEPITA ""DIVIDA EXTERNA"" PARA 
TORNAR-SE PIILIONARIOOU CONTINUAR 
POBRE.",,,,," A TEP1P0RADA DE 
GARIP1P0 TERP1I-NA AS 12 HORAS DO 
DIA 15, QUANDOENTAO TODOS OS GAR 
I PIPE IROS SAO RETIRADOS DOS BARR 
ANCOS. BOA SORTE E QUE 
SEUS SONHOS SE REALIZED* 

# ti 

5001 RAND 

5002 LET P=24 

5003 I.ET E=5 

5004 LET H3="N0S ESTAP10S " 

5009 RETURN 

5100 PRINT HS;"NO BARRANCO NET'; P 
: "." 



5105 RETURN 

5200 PRINT H$;"NO FUNDO DO BARRA 
N-CO NE"; P-10; " " 

5205 RETURN 

5210 PRINT HS; "EPI FRENTE A UPI BA 
R-RACO VELHO." 

5215 RETURN 

5220 PRINT HS; "DENTRO DA AGENCIA 
DA CAIXA ECONOPIICA." 

5225 RETURN 

5230 PRINT HS; "PERTO DE UPI ARPIAZ 
EPIDE SECOS E P10LHAD0S." 

5235 RETURN 

5240 PRINT "ESTA E A PRACA CENTR 
AL DE SERRAPELADA." 

5245 RETURN 

5250 PRINT "AQUI E 0 FAPIOSO BECO 
DAS P1ARGA-R IDAS, ONDE OCORRERAPI 
VARIAS PIOR-TES E ASSALTOS. 

HA TAP18EPI UPIA PORTA A LESTE." 
5255 RETURN 

5260 PRINT HS;"EPI FRENTE AO BAR 
DOALEPIAO. " 

5265 RETURN 

5270 PRINT "ESTA E A ESTRADA VEL 
HA DO GARIPIPO. HA PIUITO TEMPO QU 
E ELA NAO E UTILIZADA." 

5275 RETURN 

5260 PRINT "NESTE LOCAL HA UPIA F 
ONTE ARTE- SI ANA QUE ABASTECE 0 
GARIPIPO DE SERRA PELADA." 

5285 RETURN 

5290 PRINT HS; "DENTRO DO CAPIINHA 

0 ." 

529S RETURN 

5300 print HS; "DENTRO DO ARPIAZEP1 
♦ AQUI ELES VENDEPI DE TUDOsCOPtID 
A ,ARP1AS,FERRAPIENTAS E BE8IDAS." 
5305 RETURN 

5310 PRINT HS;"NUP1 P1ATAGAL CHEIO 
DE ESPINHOS." 

5315 RETURN 

5320 PRINT H3; "NO AEROPORTO LOCA 
L." 

5325 RETURN 

5330 PRINT HS;"NUPI CRUZAPIENTO." 
5335 RETURN 

5340 PRINT HS;"EP1 FRENTE DA AGE 
N-CIA DA CAIXA ECONOPIICA." 

5345 RETURN 

5350 PRINT HS; "DENTRO DO BAR DO 
ALEPIAO. POR AQUI TEPI UNS TIPOS 
QUE PARECEPI BANDIDOS." 

5355 RETURN 

5360 PRINT H$J "DENTRO DA CABINE- 

II 

5365 RETURN 

5370 PRINT HS; "DENTRO DO BARRACO 
VELHO. HA UPIA PORTA PERTO DA QA 
- NELA, AO SUL." 

5375 RETURN 

5380 PRINT "AQUI E 0 ACAPIPAPIENTO 
PRINCIPAL DOS GARIPIPEIROS. ALGU 
NS AINDA ESTAO DORPIINDO E CIA IS A 
FRENTE FI-CA 0 AP1BULAT0RI0. " 

5385 RETURN 

5390 PRINT HS; "DENTRO DO POSTO T 
E-LEFONICO." 

5395 RETURN 

5400 PRINT HS ; " NA PISTA DE POUSO 
5405 RETURN 

5410 PRINT HS; "EPI FRENTE DO POST 
0 TELEFONICO DA CIDADE-" 

5415 RETURN 

5420 PRINT "AQUI E 0 FERRO VELHO 
• EXISTE PIUITA COISA INTERESSA 
NTE ESPALHADA NESSE LOCAL." 

5425 RETURN 

5430 PRINT "ESSA E A ESTRADA QUE 
LIGA A CI-DADE AO GARIPIPO. HA U 
PI CAPIINHAO PARADO NO ACOSTAPIENTO 

." 

5435 RETURN 

5440 PRINT HS;"NO APIBULATORIO. " 
5445 RETURN m 
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CAMPUSWARE 

O maior e melhor cat&logo em livros de computacao! 
Aqui, uma selecao especial para voc6. 




Henry C. Luc » > 

cono udah con o 

CONPUTADOR 





Jorfi do Cunkw PMra Who 

BASIC 

PAAA MC80S PESSOAI 




EDITORA CAMPUS 



COMO LIDAR COM O COMPUTADOR 

Henry C. Lucas Jr. 

1983 - 160 pp. 

Informal bate-papo com o leitor, que responde 
as perguntas feitas pelo pessoal leiao envolvido 
no processamento de informapdes. Os conselhos 
e sugestdes abordam situapdes retiradas de am* 
bientes comerciais do dia-a-dia, e cobrem tanto 
os procedimentos basicos de operapao, quanto 
as aplicapoes criativas dos microcomputadores. 




BASIC PARA MICROS PESSOAIS 

Jorge da Cunha Pereira Filho 
1983 -232 pp. 

Importante ap resent apao da Linguaoem Basic, 
de forma extremamente didatica. Cada capitulo 
traz um guia de estudo dirigido e muitos oxer* 
cicios, fornecendo ao leitor as informapoes para 
a perfeita utilizapao em microcomputadores 
pessoais, bem como os de teclado piano. 



IMPLANTACAO DE MICROS E 
MINICOMPUTADORES COMERCIAIS 

P. A. Knight 
1983- 120 pp. 

Um guia seguro para os responsdveis pela insta- 
lapao de sistemas de computapao, este livro ser- 
vira de ajuda nos aspectos mais diffeeis^ e fun* 
cionara como uma Lista de Verificapao para 
que nada seja esquecido. 




MICROCOMPUTADORES PARA 
APLICAQOES COMERCIAIS 

W. Barden Jr. 

1983 -260 pp. 

Con hep a um microcomputador e suas aplicacoes 
comerciais antes de se decidir por sua escolha e 
aquisipao: componentes dos sistemas comerciais 
de pequeno porte, perigos a evitar, vocabulario 
esp^cializado e ate mesmo um pequeno cur so 
de linguagem basic. 



TfTULOS E PREQOS 

1 • COMO LIDAR COM O COMPUTADOR 

Cr* 4.030,00 

2 • BASIC PARA MICROS PESSOAIS 

Cr$ 6 240.00 

3 • implantaqAo DE MICROS E 

MINICOMPUTADORES 
COMERCIAIS o 

Cr$ 5.390,00 

4 • MICROCOMPUTADORES PARA 
APLICACOES COMERCIAIS 

Cr$ 7 440,00 

5 • FUNDAMENTOS DE 

PROCESSAMENTO DE DADOS 

Cr$ 6.210,00 

6 • GUIA DE LINGUAGENS DE 
COMPUTADORES 

Cr$ 4.210.00 



FUNDAMENTOS DE 
PROCESSAMENTO DE DADOS 

Wilson T. Price 
1983- 200 pp. 

Uma introdupao concentrada e condensada ao 
processamento de dados que procure reduzir a 
quantidade de informapoes a respeito, preser 
vando apenas os conceitos mais importantes e 
os itens basicos mais significativos. 



GUIA DE LINGUAGENS 
DE COMPUTADORES 

Harry L. Helms Jr. 

1983- 122 pp. 

Se voce precise ou quer saber as diferenpas en* 
tre COBOL, FORTRAN e outras linguagens, es 
te livro 6 para voce. Cada capitulo apresenta 
uma conhecida linguagem de programapdo; o ul- 
timo cont6m um dicion&rio de palavras*chave. 



CAMPUSWARE 

FApA AQUI SEU PEDIDO 

Assinale abaixo o(s) numero(s) correspondente(s) d(s) publicapao(bes) que deseja receber: 



|l I 2 | 3 1 4 | 5 | 6 | 

Assinale a sua oppSo de compra: 

^Cheque nominal d ATI-Editora Ltda. N° Banco 

AtenqSo. Neste caso, fapa o cheque com 10% de desconto sobre os prepos mencionados e 
deixe o porte por nossa conta. 

QReembolso Postal 

Envie o seu cupom ainda hoje para: 

ATI-Editora Ltda. 

Rua Visconde Silva. 25 

22281 Botafogo - Rio de Janeiro - RJ 



Enderego . 
CEP 



Cidade Estado. 



Atenpao: Prepos vj lidos por tempo limitado 











Neste jogo para os micros da linha TRS-80 mode/o III, evite bater nas 
barreiras e, ao mesmo tempo, faga com que seu ad versa rio nao supere as "barras" 

Ciclotron: 
supere esta barra! 

Hendy Takeshi Yabiku 



C iclotron 6 urn jogo de reflexos 
e estratdgia. Dois jogadores 
estabelecem uma verdadeira 
persegui^fo um ao outro, onde, ao 
mesmo tempo que tentam evitar uma 
colisao com as barreiras que cercam o 
campo de a$ao do jogo, vao 
construmdo suas prdprias barras para 
encurralar o adversdrio. 0 campo 6 
fechado, nao tern por onde escapar e 
somente um saird vitonoso, pois nao 
existe empate. 



Cada um controlard um ponto na tela, 
que corre a uma velocidade constante, 
sendo impossivel ficar parado. Os 
contadores que aparecem sao: 

Ciclo, Jog. 1 e Jog. 2. Ciclo 6 a 
unidade de tempo do jogo e, cada vez 
que um adversdrio bater na barreira, os 
pontos acumulados em Ciclo passarao 
automaticamente para o outro 
jogador. Jog. 1 e Jog. 2 sao, 
respectivamente, os pontos dos 
jogadores um e dois. 



0 Jog. 1 usa, para controlar seu ponto, 
as teclas: “Q” para virar a esquerda e 
“W” para virar & direita; o Jog. 2 usa 
“ < ” para virar & esquerda e “ > ” 
para virar & direita. 



Hendy Takeshi Yabiku tem 15 anos e desen- 
volve jogos nos micros compatfveis com o 
TRS-80 Modelos I e III e nos da linha Sinclair. 
£ um autodidata e aprendeu BASIC apenas 
atrav6s de revistas e livros. 
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Ciclotroa 



1 REM CICLOTRON 

2 REM "O JOGO DAS BAR RE IRAS" 

3 REM HENDY T. YABIKU 

10 CLS: DEFINT A-Z: P=1500 
20 INPUT"QUER VER AS REGRAS (S/N) 

" ;C$ 

30 ' IP C$="S" THEN GOTO 1000 
40 IF C$<>*N* THEN PRINT"NAO ENT 
ENDI , TENTE DE NOVO": GOTO 20 
45 PRINT" APERTE QUALQUER TECLA 
PARA COME CAR" 

50 IF INKEY$=" " THEN 50 
55 Jl=0: J2=0 

60 CLS: A=55: B=44: C=l: D=58: E 
=44: F=1 : G=0 

70 PRINTS), "Jog. l:";Jl: PRINTG25 
"Ciclo: " ;G: PRIin»52, "Jog. 2: " ;J 
2 : 

80 FOR 1=0 TO 127: SET(I,3): SET 
(127-1,47): NEXT 

90 FOR 1=3 TO 47: SET(0,50-I): S 
ET ( 127 , I) : NEXT 
100 K=PEEK ( 14500) :G=G+1 
110 IF K=2 THEN C=C-1 ELSE IF K= 
128 THEN C=C+1 ELSE IF K=16 THEN 
F=F-1 ELSE IF K=64 THEN F=F+1 
120 IF C=0 THEN C=4 ELSE IF C=5 
THEN C=1 

130 IF F=0 THEN F=4 ELSE IF F=5 
THEN F=1 

140 IF C=1 THEN B=B-1 ELSE IF C= 
2 THEN A=A+1 ELSE IF C=3 THEN B= 



B+l ELSE A=A-1 

150 IF F=1 THEN E=E-1 ELSE IF F= 
2 THEN D=D+1 ELSE IF F=3 THEN E= 
E+l ELSE D=D— 1 

160 IF POINT (A, B) THEN 200 ELSE 
SET(A,B); IF P<5lNT(D,E) THEN 300 
ELSE SET (D,E) 

170 PRINT^Bl ,G; : GOTO 100 

200 J2=J2+G: PRINTO58, J2 ; : IF J2 

>=P THEN 400 

210 PRINT4M60 , " JOGADOR 2 GANHOU 
ESSA";: FOR 1=0 TO 1000: NEXT: 
GOTO 60 

300 Jl=Jl+G: PRINT«6,Jl;: IF Jl> 
=P THEN 450 

310 PRINT«60," JOGADOR 1 GANHOU 
ESSA";: FOR 1=0 TO 1000: NEXT: 
GOTO 60 

400 PRINTS* 60, "JOGADOR 2 VENCEU" 
;: FOR 1=0 TO 2500: NEXT: CLS; G 
OTO 20 

450 PRINT3460, "JOGADOR 1 VENCEU" 
;: FOR 1=0 TO 2500: NEXT: CLS: G 
OTO 20 

1000 CLS: PRINT "Neste j ogo , voce 
e seu adversario se* 

1010 PRINT "de Iron tarn num campo s 
em saida, em que o " 

1020 PRINT"objetivo e' fazer com 
que o adversario bata” 

1030 PRINT"em uma das barreiras, 
que podem ser as que" 



1040 PRINT "voces estao trancando 
ou nas laterals do campo." 

1050 PRINT: PRINT"Para controlar 
use as seguintes teclas." 

1060 PRINT: PRINT, "ESQUERDA" , "DI 
REITA" 

1070 PRINT" JOGADOR 1" , " 'Q * " , " *W * 

m 

1080 PRINT" JOGADOR 2 m , m9 < ,m , m *> ' 

• 

1090 PRINT: PRINT 

HOD PRINT" APERTE QUALQUER TECL 

A" 

1110 IF INKEY $=" " THEN 1110 
1120 CLS: PRINT: PRINT 
1130 PRINT"cada vez que seu adve 
rsario bater,os pontos* 

1140 PRINT"acumulados em 'CICUDS 
• passarao para voce." 

1150 PRINT"0 primeiro a alcancar 
■ ;P; " pontos sera o vencedor." 
1160 PRINT"Este limite de pontos 
pode ser mudado,"; 

1170 INPUT "voce quer (S/N) ";C$: I 
F C$="S" THEN 2000 ELSE GOTO 45 
1180 IF C$<> "N" THEN PRINT*NAO E 
NTENDI , TENTE DE NOVO": GOTO 1170 
2000 INPUT"Para quanto ( 500<PON 
TOS<10 . 000 ) " ;P 

2010 IF P<500 OR P>10000 THEN 20 
00 

2020 GOTO 45 
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Software para Microcomputadores? 
So ha uma solucao inteligente! 




BIBUOTECA BRASILEIRA DE SOFTWARE 



I 
I 
I 

M V OC4 

S Av. I 



Todas as categorias de Software 



Diversoes 
e Jogos 
Pessoais 



Uso Caseiro 

Comerciais 

Graficos 



E..., mais de 4000 originate 



que voce pode retirar 
e levar para 
suacasaou 
empresa para 
usanio a vontade. 



Para os principais 
micros do mercado: 
TK82, TK83, TK85, 
TIMEX/SINCLAIR, 
CP200, CP300, CP500, 



Educacionais 

Profissionais 

Cientrficos 



TRS80 Mod. Ill, 

UNITRON, MAXXI, 
Microengenho, 

Apple e Similares, 
Sistema 700 e Superbrain. 



Voc6 pod. consultar pnsoalmente o* catalogos de Software ou ioiicita informacoee pelo Cottmo. 

Av. Bripadeiro Faria Uma. 1390 - *? Andar C). S2 CEP 01462 - Tala.: (0111 *14-0092, 913-9407 a 210-1251 - S*o Paulo - SP 
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Winchesters, 
aqui e la fora 




Pouco a pouco con- 
solidate no Brasil o 
mercado de discos 
magneticos rigidos com 
tecnclogia winchester 
e os modelos menores. 
de 5 1/4 . ja estao sen- 
do conectados a micros 
pessoais do porte do 
CP-500, o que ira em 
breve aumentar a capa- 
cidade de armazena- 
mento externo desses 
equipamentos para ate 
20 Mbytes 

Mas como estao es- 
ses penfericos em ter- 
mos de tecnologia. em 
comparagao com o 
mercado internacional 7 Nos- 
so colaborador Ulrick Kuhn, 
engenheiro especializado no 
assunto. visitou a III Feira de 
Informatica. comparou os mo- 
delos expostos e faz aqui uma 
apreciagao do atual estagio 
tecnologico brasileiro nesse 
campo. em vista do que acon- 
tece nos centros mais avan- 
gados. e se arrisca a fazer 
algumas previsoes para o fu- 
turo. 

A tecnologia nacional de 
discos segue as tendencias 
mundiais. porem em ritmo 
mais lento. Analisando essas 
tendencias. podemos ter uma 
ideia de nossos futuros pro- 
dutos. O que nao podemos 
estimar com precisao e a data 
de sua dispombilidade. 



O winchester de 5 1/4 cau- 
sou uma verdadeira explosao 
no mercado americano. sen- 
do que as previsoes estima- 
das de vendas para 1984 sao 
de 2 milhoes de umdades pa- 
ra os winchesters de 5 1/4 . 
600 mil unidades para os de 
8 e 100 mil unidades para os 
drives de 14 Essa explosao 
demografica dos winchesters 
foi responsavel pela padrom- 
zagao e aceitagao da inter- 
face ST 400/500. e o W 5 1/4 
de hoje apresenta o seguinte 
perfil: uma umdade com step- 
per motor, com capacidade 
de 5 a 15 MB e interface ST 
400/500 Recentes anuncios e 
langamentos de unidades nes- 
se segmento — com capaci- 
dades de ate 80 ou 150 MB 




e com maior performance, 
utilizando voice coil e servo 
— tambem preveem como in- 
terface standard o ST 400/500 
(existem outras opcionais). 
mesmo com a restrigao de 
menor rendimento de capaci- 
dade (densidade linear) e 
transrmssao por causa da 
taxa de 5 MHz 

As tecnologias de voice 
coil, cabegas magneticas thin 
film e Whitney, medias (dis- 
cos) th*n film plated, novos 
codigos de encodifigagao co- 
mo o 2.7 RLL. atuadores voi- 
ce coil e gravagao vertical, 
sao as responsaveis pelo 
W 5 1/4 com 150 MB A Max- 
tor (EUA). por exemplo. de- 
senvolveu um motor DC de 
acionamento dentro do eixo 
de discos que permite a mon- 
tagem de um maior numero 
de pratos na mesma umdade 
Quando for possivel incorpo- 
rar todas essas tecnologias 
num umco produto — o que 
ocorrera por volta de 1985 — 
a capacidade de armazena- 
mento devera chegar aos 
500 MB 

A interface ST 400/500. em- 



bora hoje predommante no 
mercado. devera ceder lugar 
a novos tipos. em drives de 
melhor desempenho. com 
maiores taxas de transrmssao 
e sem perda de confiabilida- 
de Uma dessas interfaces se- 
ra provavelmente a ESDI (10 
MHz), similar a ST 400/500. 
porem com a transrmssao de 
dados em NRZ Poderao am- 
da surgir drives com interface 
SCSI (15 MHz) paralela de 8 
bits. 

Os drives de 8 e 14 deve- 
rao no futuro chegar a 1 GB 
ou mais e equiparao basica- 
mente superrmms e sistemas 
medios e grandes O mercado 
desses produtos. devido ao 
segmento que atendem. sera, 
sem duvida. menos expressi- 
vo que o W 5 1/4 Tais equi- 
pamentos manterao por al- 
gum tempo o padrao SMD. 
com maior taxa de transferen- 
ce Interfaces inteligentes. 
como o IPI ou o ISI. porem. 
deverao equipar os produtos 
de alto desempenho. que po- 
dem ter ate mais de um atua- 
dor (voice coil) para dimmuir 
os tempos de acesso 



Industria de computadores 
ja e Iider no Japao 



Desenvolvimento de tecno- 
logia que acompanhe o setor 
de produgao. popularizagao 
do uso do computador. maior 
mcentivo a area de software, 
mtegragao de tecnologia de 
comumcagao com a de com- 
putagao. avango dos compu- 
tadores de quinta geragao e 
apoio governamental ao setor 
levou a industria de compu- 
tagao no Japao a arrecadar 
em 1982 cerca de 5 bilhoes e 
700 milhoes de dolares. tor- 
nando-a responsavel pela 
maior parte do Produto Inter- 
no Bruto do pais. 

Este panorama da industria 
de informatica japonesa foi 



transmitido por Katamitsu Ko- 
no. gerente geral do CICC — 
Center of the International 
Cooperation for Computeriza- 
tion. no I Ciclo de Conferen- 
cias do Conselho Permanente 
de Informatica da Associagao 
Comercial do Rio de Janeiro 
sobre o tema Aspectos Atuais 
de Informatica no Japao O 
evento se realizou no audito- 
rs da Associagao. no ultimo 
dia 9 de dezembro e contou 
com o apoio da Digibras e do 
JECC — Japan Electronic 
Computer Company 

Katamitsu Kono declarou 
que a previsao para 1990 e 



que a industria de compu- 
tadores japoneses alcance a 
cifra de 18 bilhoes e 900 mi- 
Ihoes de dolares. o que colo- 
ca esse setor na vanguarda 
da industria japonesa no ano 
2000 Nesse contexto. a area 
de software recebera total 
prioridade ja que o hardware 
alcangou um patamar bastan- 
te elevado no Japao Uma no- 
va geragao de computadores 
surgira na medida que sua 
utilizagao seja diversificada 
Hoje no Japao cerca de 
duas mil empresas se dedi- 
cam ^ produgao de software, 
mclumdo as autonomas e as 
ligadas aos fabricates. Ocor- 
re um aumento acentuado no 
numero de software-houses e 
70°o dessas empresas sao pe- 



quenas e medias. Os incenti- 
ves governamentais nessa 
area e o apoio de orgaos co- 
mo o CICC e o JECC sao im- 
prescindiveis. assmalou Kata- 
mitsu Paralelamente. tambem 
existe um mcentivo por parte 
desses orgaos para o desen- 
volvimento de software pelo 
usuario como forma de fami- 
liarizagao com o equipamento 
Em relagao aos micros pes- 
soais. Katamitsu declarou que 
atualmente no Japao so exis- 
tem micros 'de 16 bits Com 
maior capacidade. esses com- 
putadores passaram de sim- 
ples instrumentos de lazer pa- 
ra . maquinas tambem de 
utilizagao comercial. deixan- 
do de ser rotulados de pes- 
soais. 
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O homem e a tecnica 



As caracteristicas do com- 
putador sao diametralmente 
opostas as do ser humano 
Por isso. ambos se comple- 
mentam E quando a maqui- 
na invade campos de domi- 
mo do homem. isso ocorre 
porque a tecnologia sempre 
foi desenvolvida sem que se 
fjzesse antes um estudo cien- 
tifico sobre o seu emprego 
Assim pensa o professor 
trances Jean Warmer, uma 
das maiores autoridades mun- 



diais em Informatica e cria- 
dor da metodologia de pro- 
gramagao estruturada. que 
recentemente veio ao Brasil 
para mimstrar cursos sobre o 
assunto. 

A ilusao. bastante difundi- 
da. de que o computador e 
capaz de tudo. disse Warmer, 
provem do fato de que. por 
exemplo. o homem pode in- 
ventar uma formula de cal* 
culo que por vezes nem ele 
proprio consegue executar 



Mas a maquina que executa 
essa formula, na verdade so 
desenvolve um algoritmo 
(N R. um conjunto defmido 
de operagoes a ser executa- 
das para levar a algum re- 
sultado desejado); ela nao 
pensa 

Outro fator que alimenta as 
ilusoes a respeito da maqui- 
na. ressaltou Warmer, e que 

na Informatica usam-se mui- 
tos antropomorfismos. isto e. 
atribuem-se qualidades hu- 

manas a maquina. Um com- 
putador nunca teve memoria. 
nunca soube ler ou escrever. 



Ele nao e inteligente ou bur- 
ro. simplesmente ou esta fun- 
cionando ou esta quebrado . 

Sobre a invasao pelo com- 
putador de areas de atividade 
reservada ao homem. Warnier 
lamentou que exista uma 
distancia cada vez maior en- 
tre o desenvolvimento da tec- 
nica e a formagao das pes- 
soas que vao utilizar essas 
novas tecnicas E advertiu: 
Nao e ensinando BASIC que 
vamos fazer as pessoas ra- 
ciocinarem. Elas precisam 
antes aprender a raciocinar 
para depots obter a capaci- 
tagao tecnica 



Gravador de memorias EPROM 



A Micromac Industria de 
Equipamentos Eletronicos 
Ltda esta fabncando os gra- 
vadores de memorias EPROM 
GEP-30 e os apagadores de 
EPROMs EE P-30 O GEP-30 
compoe-se de uma umdade 



de hardware com fonte de 
alimentagao propria e mais o 
software — em Assembler 
Z80 — fornecido em cassete 
ou disquete Ja o apagador 
de memoria EEP-30 permite 
o apagamento de lotes de 30 



EPROMs 2780. 2716 e 2732. 
entre outras 0 GEP-30 custa 
Cr$ 485 mil. e o EEP-30. Cr$ 
395 mil A Micromac fica na 
Rua Texas. 1342. Sao Paulo 
- SP. CEP 04557, tels : (011) 
61-3*167 e 531-8760 



Piaget e os micros 



Interface para 
Olivetti ET121 

A Daisy Wheel Eletromca 
esta langando a interface DW 
121 que. acoplada a maquina 
de escrever Olivetti ET 121. 
possibilita a sua utilizagao 
como impressora. sem contu- 
do interfere na sua utilizagao 
normal A interface pode ser 
ligada a qualquer micro com 
saida serial RS232-C ou para- 
lela Centronics. A DW 121 e 
controlada por um micropro- 
cessador 8085. tern buffer m- 
terno de 2 Kbytes e possibilita 
uma serie de recursos. tais 
como negrito e sublinhamen- 
to automaticos O enderego 
da Daisy Wheel e Rua Anto- 
nio Comparato. 200. Sao Pau- 
lo— SP. CEP 04605. tel : (011) 
532-0154 



Partmdo do prmcipio de 
permitir as criangas utilizar o 
microcomputador como um 
piano, um crayon, um papel 
ou pincel. e para que este as 
auxilie no desenvolvimento 
do raciocimo logico atrav^s 
da expansao da sua criativi- 
dade. foi criada em Sao Paulo 



a 4C. Segundo o seu diretor. 
Luis Paulo Soares, para a cri- 
agao da 4C foi feito um 
estudo das etapas do desen- 
volvimento mfantil de acordo 
com Piaget, o que resultou 
em um curso para as criangas 
que estao no estagio de ope- 
ragoes formats, ou seja. alu- 



nos de 5 a a 8 d serie 
Da 4C tambem participa a 
empresa People, de Campi- 
nas. que ja possui cinco anos 
de experiencia no ensino de 
computagao. e a loja Compu- 
tique. Os cursos da 4C tern 
duragao de 16 horas/aula. 
com turmas matutmas e ves- 
pertinas Maiores informagoes 
na Av. Rouxinol. 201. Sao 
Paulo — SP. CEP 04516. tel.: 
(011) 61-4595. 



ISTRINGSl 



* A Apple-tronic langou o monitor de video Apolo. de 12 em 
fosforo verde de alta resolugao (20 MHz). Adaptavel a qualquer 
micro, o monitor custa 42 ORTNs e pode ser comprado direta- 
mente do fabricante (que tambem fornece em OEM) ou atraves 
de lojas especializadas * Ao comemorar o quinto amversario. a 
Compucenter anunciou a sua transformagao em systems house 
e langou o PC — Padrao Compucenter . que consiste num pacote 
englobando um micro de 16 bits — o Nexus 1600. da Scopus 
— . software e treinamento. * Os usuarios do TK 83 e compativeis 
ja poderao encontrar nas lojas a nova serie de jogos ammados 
de 2K. deSenvolvidos pela Multisoft Informatica Ltda Sao 16 
programas agrupados em fitas com dots ou tres e que incluem. 
entre outros. Invasores. Grand Prix, Limpeza Cdsmica. Laser , 
Desafio Espacial. Confronto . Mmotauro . Bombardeio . Guilhotina 
e Smag-Smag * Edson Fregni. presidente da Abicomp e da 
Scopus Tecnologia. foi escolhido Engenheiro do Ano de 1983 
pelo Instituto de Engenharia de Sao Paulo. O titulo. segundo o 
Instituto. visa a premiar a luta desenvolvida por Edson Fregni 
na defesa da engenharia e na politica de implantagao de reserva 
de mercado tecnologico na Informatica * A base de dados 
Sonar/lnspec. distribuida pelo Centro de Informagoes Nucleares 



— CIN. da Comissao Nacional de Energia Nuclear, foi acrescida 
de uma nova area de mteresse. Tecnologia da Informagao. e cujos 
relatorios. em ingles, incluem os seguintes topicos General & 
Management Aspects . Applications. Media-TV. Radio, Press Ge- 
neral Systems. Office Communications Office Computing. * A 
Companhia Siderurgica p aulista — Cosipa comemorou os seus 
30 anos de existence ccm a mauguragao de um sistema pioneiro 
no Pais de controle computadorizado do processo de aqueci- 
mento do laminador de tiras a quente O projeto. que utiliza 
computadores nacionais e mclui o desenvolvimento dos modelos 
matematicos e dos programas de supervisao e controle. permitiu 
alcangar o dominio tecnologico tanto do equipamento como do 
processo industrial. * A 11 a . FLISE — Feira Internacional de Uten- 
silios e Servigos de Escritorio. a realizar-se de 18 a 22 de fevereiro 
de 1984. no Parque Anhembi. Sao Paulo, contara com a parti- 
cipagao de novos setores de atividades. entre eles. Processa - 
mento de Dados e Teleprocessamento O evento. promovido 
pela Alcantara Machado Feiras e Promogoes ltda . sera tambem 
realizado entre 4 e 10 de junho. no Centro de Convengoes de 
Pernambuco, com o nome de 1 a FUSENE. 
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Sistemas nacionais 
para a linha Apple 

A Potencial Software de- Passo. mmistrado na propria 
senvolveu e esta comerciali- maquina. com 20 horas de 
zando uma serie de aplicati- instrugao e incluindo eteitos 
vos comerciais para micros sonoros. cores e ammagao 
da linha Apple, alem de um gratica 
curso de BASIC, o Passo a Os programas. comerciali- 



zados com garantia do fabn- 
cante. sao os segumtes: Fo- 
Iha de Pagamento (para ate 
200 funcionarios. com 37 itens 
por cadastro. alteragao de 
tichas individuals e emissao 
de diversos relatonos), Mala 
Direta (arquiva ate 250 cadas- 
tros de 13 itens por disquete. 
permite busca atraves de pa- 
rametros preestabelecidos e 
impressao de parte ou de to- 
das as tichas). e Controle de 
Estoque (para ate 1 1 mil itens. 



com sete informagoes cada. e 
busca por diversos campos 
escolhidos pelo usuano). 

Todos os programas exigem 
equipamento com 48 K RAM. 
microprocessador 6502 um 
drive de disquetes de 5 1 /4 
e sistema operacionai SOD 
3.3. O enderego da Potencial 
Software e Av. Dr. Campos 
Salles. 715. cj 902 /3. Cam- 
pinas — SP. CEP 13100. tel 
(0192) 31-5340 



Setor ve 1984 com otimismo 



□ pesar da crise. o ano 
foi bom para a Informa- 
tica brasileira. Bom nao 
apenas no faturamento (que. 
diga-se de passagem. foi in- 
vejavel). mas tambem pelos 
importantes passos dados no 
sentido da consolidagao da 
miciativa nacional no setor A 
esse respeito concordam diri- 
gentes nacionais e regionais 
das principals entidades de 
classe da area ouvidos por 
MICRO SISTEMAS e que es- 
peram este ano colher diver- 
sas sementes plantadas du- 
rante o ano que acaba de 
fmdar 

Edson Fregni. presidente 
da Associagao Brasileira de 
Computadores e Perifericos 
— Abicomp, por exemplo. 
acha que o ano de 83 mar- 
cou o inicio do amadureci- 
mento da mdustria nacional . 
A constatagao desse amadu- 
recimento. prosseguiu, pode 
ser vista no Informatica 83. 
tanto que a Abicomp abriu a 
discussao sobre pirataria. 
num recon hecimento de que 
nosso compromisso e com a 
tecnologia e nao com o fatu- 
ramento da mdustria Para 
ele, um ponto de destaque 
sobre esse aspecto em 1983 
foi o Ato Normativo 27. da 
SEI. impondo barreiras contra 
a pirataria. 

O presidente da Abicomp 
ressaltou ainda que a indus- 
try nacional de computado- 
res viveu em 1983 algumas 
dificuldades muito serias de- 
correntes da situagao econd- 
mico-financeira do Pais, tal 
como a crise da importagao 
de componentes Mas. acres- 
centou. 1983 foi. acima de tu- 



do. o ano de abertura do de- 
bate sobre a quest ao da poli- 
tica de Informatica em outros 
setores da sociedade. a co- 
megar pelos partidos politi- 
cos. debate esse que. na opi- 
niao de Fregni. devera pros- 
seguir em 1984. ja com sigm- 
ficativa parcels da sociedade 
apoiarido a reserva de merca- 
do Ele ressaltou tambem a 
pressao exercida pelos norte- 
americanos no ano passado 
em cima da politica de Infor- 
matica Tivemos que nos or- 
gamzar e aprender a agir dian- 
te desse fato 

Q ara Wladyr Furegatti, 
ex-presidente da Suce- 
su-SP. houve em 1983 
uma sensivel melhora no rela- 
cionamento usuario-fabrican- 
te. decorrente de aperfeigoa- 
mentos no hardware, no soft- 
ware e na manutengao *0 
usuano viu com satisfagao o 
surgimento de outros forne- 
cedores de hardware, o que 
sem duvida traz uma garantia 
de fixagao da politica nacio- 
nal de Informatica e de evolu- 
gao tecnologica , disse Fure- 
gatti. para quern as relagoes 
entre fornecedores e usuarios 
tendem a se aprimorar em 
1984. com melhor tecnologia 
e menores custos 
Ja a nova diretoria. que to- 
mou posse em fins de dezem- 
bro. planeja aumentar a parti- 
cipagao dos associados. a co- 
megar por uma consulta atra- 
ves da qual eles estabelece- 
rao as prioridades a serem 
seguidas pela entidade. Con- 
forme explica Octavio Genna- 
ri Netto. novo vice-presidente. 
esta prevista para este ano 
uma exposigao permanente 



de microcomputadores na se- 
de da Associagao. com apoio 
para o usuano Tambem esta 
nos pianos da nova diretoria 
da Sucesu-SP uma integragao 
maior com a sua congenere 
carioca: Vamos ajuda-los na 
organizagao do Informatica 
84 e eles nos ajudarao no 
Informatica 85’*. adiantou 
Gennan. 

□ regulamentagao da pro- 
fissao foi o principal 
assunto que mobilizou 
os esforgos da Associagao de 
Profissionais de Processa- 
mento de Dados de todo o 
Brasil. Foi tambem o tema 
central do 1? Congresso Esta- 
dual de Profissionais realiza- 
do pela APPD-SP, que elabo- 
rou um anteprojeto de Codigo 
de Etica, atualmente sendo 
examinado pelas APPDs dos 
outros Estados. A regulamen- 
tagao da profissao e tambem 
um dos pontos-chave do pro- 
grama de atividades a ser de- 
senvolvido pela nova diretoria 
da regional paulista. junta- 
mente com a luta pela criagao 
de um smdicato e a defesa da 
tecnologia nacional Segundo 
Francisco de Assis da Costa 
Beraldo. novo presidente oa 
APPD SP. a parti r deste mes 
tambem ja devera estar fun- 
cionando na entidade o Micro 
Centro, onde serao promovi- 
dos cursos e palest ras para 
reciclagem dos profissionais 
no tocante aos microcompu- 
tadores. 

A Associagao Nacional dos 
Dirigentes Executivos de In- 
formatica — . ANDEI. que tam- 
bem teve eleigoes recente- 
mente. pretende este ano dis- 
seminar a sua existencia. 



Uma das formas sera a cria- 
gao de um departamento de 
recursos humanos para auxi- 
liar as empresas na selegao 
de profissionais adequados 
as suas necessidades A AN- 
DEI pretende tambem realizar 
uma pesquisa de salarios a 
nivel nacional. numa tentativa 
de disciplinar o mercado 
Alem disso. a entidade esta 
criando um setor de benefi- 
cios a nivel tecn.co. com cur- 
sos e semmarios. alem de 
convenio medico, entre ou- 
tras coisas 

Q ara Jose Maria Sobri- 
nho. presidente da As- 
sespro — Nacional, os 
Projetos de Identificagao da 
Propriedade do Software e de 
um Novo Codigo de Etica. 
alem dos Programas de Co- 
mercializagao firmados com a 
Control Data e a IBM foram as 
mais significativas vitorias al- 
cangadas pela Associagao em 
83. Um ano que. apesar da 
dificil situagao econdmica do 
pais, foi bom para as empre- 
sas de servigos de Informa- 
tica, que registraram indices 
de crescimento acima da taxa 
de inflagao 

Informatica e o mstrumen- 
to indispensavel ao pais para 
atravessar a crise que ai esta; 
com a otimizagao e a conse- 
quente redugao dos custos 
abrem-se perspectivas para 
novas contratagoes Sobri- 
nho acredita que as empresas 
que conseguiram fechar o 
ano de 83 com lucratividade 
estao aptas a enfrentar 84. 

pois eu prevejo para este 
novo ano a retomada do de- 
sen volvimento economico do 
pais ’, disse ele. ■ 

m 
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Esta 6 uma versao reduzida (para 657 bytes) 
da listagem 'Programe em segredo publicada em MICRO SISTEMAS 
nQ 25, edigao de outubro/83, para ser rodada em 
equipamentos da I inha Apple. Se voce tern a/gum programa 
j& publicado em MS convertido para outro equipamento, divida 
sua experiencia com os demais leitores, enviando-o para 
MICRO SISTEMAS/Segao Conversao, Rua Visconde Silva, 25, 
Botafogo, Rio de Janeiro, RJ, CEP 22281. 



Programe em segredo 
no Apple 



Pierre R. Weber - Sao Paulo — SP 



10 REM PROGRAMA CRIPTOGRAFIA ' SE 


170 


IF K=0 THEN READ B$,E$: GOTO 


GREDO" 




190 


20 REM MICRO SISTEMAS 


25, PAG 60 


180 


READ E$,B$ 


30 RESTORE 




190 


IF C$=B$ THEN PRINT E$;: GOT 


40 PRINT: PRINT: PRINT: PRINT 


0 210 


50 PRINT "ESCOLHA : 1 


CODIFICAR' 


200 


NEXT A 


60 PRINT " 2 


DECODIFICA 


210 


RESTORE 


R" 




220 


NEXT X 


70 PRINT " 3 


TERMINAR" 


230 


GOTO 30 


30 INPUT R 




240 


K=1 


90 ON R GOTO 100,240, 


260 


250 


GOTO 110 


100 K=0 




260 


END 


110 INPUT "INTRODUZA A 


FRASE ";A0 


270 


DATA A,K,B,M,C,L,D,N,E,Z,F,I 


120 RESTORE 




,G, 


M 


130 G=LEN (A$ ) 




280 


DATA H,B,I,A,J,D,K,B,L,E,M 


140 FOR X=1 TO G 




,c, 


N,F,0,B,P,Q,Q,0,R,P 


150 C$=MIDy (A$ , X, 1 ) 




290 


DAT? S,U,T,X,U,T,V,V,X,S,Z,J 


16 C FOR A=1 TO 28 




It 

t 


II rj It II II - II ll # II II . H ♦» ’»«. H • *' 



PROCURE QUEM 
REALMENTE ENTENDE. 



REALMENTE ENTEN1 

Mfl^MICROMAQ 






R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos e Manulen^ao de Equipamentos. 
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Comegou a temporada de pesca nos micros da familia Sinclair'. Prepare 
a isca, o can if o e o samburA, e nao deixe escapar nenhum 



Pescaria 

em aguas eletronicas 




Nelson Hisashi Tamura 



D omingo, feriado, meio de semana. Todo dia 6 dia de 
pescaria neste jogo para os micros compativeis com a 
logica Sinclair. A configura^o minima necessdna 6 16 
Kb de RAM e o programa opera em SLOW para amma^ao das 
figuras. 

O jogo 6 totalmente auto-exphcativo, mas, antes de come- 
$ar a pescar, preste aten^o nesta dica: para tirar o peixe da 
dgua, voce deve pressionar a tecla S assim que a vara do pesca- 
dor tremer, indicando que o peixe mordeu a isca. Alids, esti 
af uma 6tima chance para voce testar como andam seus re- 
flexos... 



0 micro lhe da dez iscas e, com cada uma, voce poderd er- 
rar at£ tres vezes. Se nao conseguir apanhar o peixe, perde a 
isca. 

Cada peixe fisgado conta dez pontos. Vamos ver se voce 6 
realmente bom de pescaria ou se s6 sabe mesmo 6 contar boas 
histdrias de pescador. 



Nelson Hisashi Tamura 6 estudante do Curso TAcnico de Eletrdnica na 
E. P. S. C. Liceu BrAs Cubas. Atualmente traba/ha numa oficina de en- 
ro/amentos de mo tores elAtricos, onde utilize um CP-200 para arquivo 
de dados e controle geral de oficina. 



Pescaria 



0 REM < NELSON H. TAMURA > 

5 SLOW 

10 GOSUB 4000 
20 CLS 

30 PRINT "N .H.T. " 

4 0 PR INT AT 3, 7; "HB B" ; AT 4 
8;"mar ; at 5,8?* , chhe m ; at 6,8? 



50 PRINT AT Ml I ■■ I I I I I I B 
AT 8,8 ; "S—DHHig M " ; AT 9,8; 

12,13; ,, nC" 

60 PRINT AT 12,7; ,, H^U ,, ;AT 1 
,7; "SHE" 

70 PRINT AT 14,0; 

n" 

80 PRINT AT 15,0? 




90 PRINT AT 16,0 ? T 
E" 

100 PRINT AT 17,0?' 



no print at i8.o? 'Tmo poo n~m 
SHE" 

120 PRINT AT 19,0;"CHami[ 

r 

130 PRINT AT 20,0; 1 



140 LET H=0 
150 POKE 16418,0 
160 FOR K=21 TO 23 
170 PRINT AT K , 0 ; w 




180 NEXT K 

190 PRINT AT 11,0; “9£ £ £ £ Ef5" ; AT 
12,0? "»£££££!]" ?AT 13,0; "3BSK" 






200 GOSUB 400 
210 GOSUB 500 
220 GOTO 600 

400 PRINT AT 2, 26 ? "CM" ? AT 3,28 
? " : " ? AT 4 , 2 8 ; " : " ? AT 3 , 24 ; "W ; A 
T 4,22;"M";AT 5 , 20 ? "[»• ? AT 6, 
18? "OH"? AT 7,17? M GB H 
410 RETURN 
500 FOR 05 TO 20 
510 PRINT AT C, 28 ; " J" 

520 PRINT AT C , 2 8 ? " : " 

530 NEXT C 

540 PRINT AT 20 , 27 ? "H” ? AT 20,29 
? "ET ;AT VAL M 19 H , 27 ? "CT ?AT VAL w 
19 ", 29 ; ”0” 

550 PRINT AT 20,27?" " ?AT 20,29 
?" " ?AT VAI "19", 27?" " ? AT VAL " 
19", 29?" " 

560 RET RN 
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600 FOR P*0 TO 9 
610 FOR L»1 TO 3 
620 LET Y=INT (RND*100) 

630 FOR Z-0 TO Y 
640 NEXT Z 

650 PRINT AT 2,26;" " ; AT 3,24 

" ; AT 4,22;" " ; AT 5, 

20 ;" 

660 IF INKEY$="S" THEN GO TO 690 
670 PRINT AT 5,20; ; AT 4, 

24 ; 'QU" ; AT 5,28;":";AT 20,28; 

TT 

680 IF INKEY$«"S" THEN GOTO 200 

-0 

690 PRINT AT 4,23;" " ; AT 5 

,21;" " ; AT 5,28;":" 

700 GOSUB 400 

710 PRINT AT 3,28;":"; AT 4,28;" 
: " ; AT 20,28;":" 

720 NEXT L 
730 GOSUB 1000 
740 NEXT P 
750 POKE 16418,0 
76t) PRINT AT 22 , 2 ; "ACABARAM AS 
ISCAS. " 

770 GOSUB 6000 

780 PRINT AT 22,1; "VOCE QUER OU 
TRA PESCA ? S/N ?" 

790 IF INKEY$-"S" TH EN RUN 20 
800 PRINT AT 22 , 17 ; ; AT 2 

2,25; "S";AT 22,27; "D" 

810 IF INKEY$="N" THEN STOP 
820 PRINT AT 22 , 17 ; "PESCA" ; AT 2 
2,25; "B" ; AT 22,27;"N" 

830 GOTO 790 

1000 PRINT AT 22,2; "O PEIXE LEVO 
U SUA ISCA." 

1010 GOSUB 6000 

1020 PRINT AT 22 , 2 ; 



1030 IF P<=4 THEN LET D=ll 



1040 IF P>»5 THEN LET D=12 
1050 IF P< = 4 THEN LET G=P 
1060 IF P>=5 THEN LET G=P-5 
1070 PRINT AT D,G+1;" " 

1080 RETURN 

2000 PRINT AT 4,24;" " ; AT 5 , 

20;" " ; AT 6,19;" " ; AT 5,28; 

" " ; AT 6,28;" " ; AT 7,28;" " ; AT 8 
,28;" " ; AT 9,28;" " ; AT 10,28;" " 
2010 PRINT AT 11,28;" " ; AT 12,28 
;" " ;AT 13,28;" " ; AT 14,28;" ";A 
T 15,28;" " ; AT 16,28;" " ; AT 17,2 
8;" " ; AT 18,28;" " ;AT 19,28;" "; 
AT 20,28;" " 

2020 PRINT AT 6,19; "IT; AT 5,19;" 
a!";AT 4,20; "QE :";AT 3,21;"M 
: " : AT 2 , 22 ; "OB : " ; AT 1,23;W 
2030 FOR N=5 TO 12 
2040 PRINT AT N,24;":" 

2050 NEXT N 

2060 PRINT AT 13, 23;"/"; AT 14,22 
;"aE";AT 15, 22 ; ; AT 16,22;" 

■i";AT 17,22; "MD"; AT 18,22;"Q1 
D";AT 19,22; ’TUB" 

2070 LET H-H+l 

2080 IF H<=9 THEN PRINT AT 18,5; 
H 

2090 IF H>*10 AND H<*99 THEN PRI 
NT AT 18 , 4 ; H 

2100 IF H>=100 AND H<*999 THEN P 
RINT AT 18 , 3 ; H 

2110 IF H> 1000 THEN PRINT AT 22, 
2; "VOCE ACABOU COM OS PEIXES." 
2120 IF H> 1000 THEN GOTO 770 
2130 PRINT AT 13,23;" " ; AT 14,22 
;" " ; AT 15,22;" " ; AT 16,22;" 

" ; AT 17,22;" " ; AT 18,22;" 

" ; AT 19,22;" 

2140 FOR T=12 TO 2 STEP -1 
2150 PRINT AT T,24;" " 

2160 NEXT T 



2170 PRINT AT 1,23;" " ; AT 2,22; 

" ";AT 3,21;" ";AT4,20;" ";A 

T 5,19;" " ; AT 6,19;" " 

2180 GOSUB 400 
2190 GOSUB 500 
2200 GOTO 610 
4000 CLS 



4020 PRINT 



4030 PRINT 



4040 PRINT AT 4,30; "C" 

405Q FOR W=29 TO 0 STEP -1 
4060 PRINT AT 4,W;"H" 

4070 NEXT W 

4080 PRINT ,,,," *INSTRU 

COES*";TAB 9;" 

4090 PRINT , ,"1 - VOCE DEVERA FI 
SGAR O PEIXE QUANDO APARECER UM 
□, PRESSIO- NANDO A TECLA S." 
4100 PRINT , , "2 - CADA PEIXE FIS 
GADO VALE 10 PONTOS . SE V. FISG 
AR UM PEIXE, A ISCA CONTINUA SE 
NDO A MESMA, MAS SE V. PERDER O 
PEIXE EM 3 CHANCES, V. PERDE 



AR UM PEIXE, A ISCA CONTINUA SE 
NDO A MESMA, MAS SE V. PERDER O 
PEIXE EM 3 CHANCES, V. PERDE 
UMA ISCA." 

4110 POKE 16418,0 
4120 PRINT , , "3 - PRESSIONE ""P" 
" PARA INICIAR A PESCA, E TENHA 
UMA ""BOA""" 

4130 PRINT AT 22 . 10 • " E TOM T M > " 

4140 IF INKEY$="P" THEN RETURN 

4150 PRINT AT 22 , 10 ; " <PESCARIA> " 

4160 GOTO 4130 

6000 FOR U*0 TO 30 

6100 NEXT U 

6200 RETURN 

9000 SAVE "FISHING" _ 

9999 RUN £ 



A Nasajon Sistemas lanca urn novo conceito 
para agilizar a sua empresa : 



A PRESSA £ AMIGA DA PERFEICA0. 

A Nasajon Sistemas esta langando no mercado uma s6rie de programas especfficos que podem dinamizar 

ainda mais as diversas areas de sua empresa. 

Sao mais de 50 programas diferentes para DGT 1000, 
Pfogrn* Fi«.(Cr$) oi*«t.(Cr$> CP 500, D 8002, TRS 80, NAJA, JR e outros. 

Contabilidade 35.064.00 210389,00 Com os programas da Nasajon Sistemas voce ver* porque a 

Controic de Estoque 56.183,00 140.259,00 pressa 6 amiga da perfeipao. 

Controle de Custos 35.064,00 - e . 

Mala Direta 42.077,00 103.000,00 Nasajon bistemas: 

Mala Direta c/Ed. Texto - 175.324,00 Urn jeito f3cil de resolver os problemas de seu computador. 

S^TSTancirio) 420 - ,0 ° IOSJmS * Desenvolvemos qualquer tipo de software de acordo 
Crediario (p/D8002) - 245.454,00 com as necessidades de sua empresa. 

Admin, de Imoveis - 385.714,00 • Antes de comprar seu computador sol icite 

Editor de Texto 28.051,00 - nossa assessoria, sem compromisso, 

^quivo de Processes ” para andlise, implantap5o e apoio. 

Controle de Livros 17.532,00 - Z, rcP* 

Controle de Cheques 17.532,00 - • Descontos para revenda. n 

Biorritimo 14.025,00 21.025,00 • Atend.mento per reembolso Xv^ V o«^° ' 

Decisao 15.428,00 22.428,00 para todo Brasil. 0^6® Y 



Voci tarn be m encontra esses programas 
em nossos revendedores credenciados. 



/i/terno/ 



Av. Rio Branco, 45 gr. 1311 CEP 20090 
Tal. (021) 263.1241 - Rio da Janairo 
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Mr. Ampersand : um recurso elegante e eficiente em Applesoft quando se 
trata de chamar sub-rotinas em linguagem de maquina, como extensao ao BASIC 



Mr. Ampersand 



Nelson Filho 



1 reqiientemente quando estamos 
Ij 1 trabalhando em BASIC (Apple- 
r soft), sentimos a necessidade de 
incorporar em nosso programa 
uma ou mais sub-rotinas em lmguagem 
de mdquina. Existem mesmo, como sa- 
bemos, situai^oes em que esta opera^o 
6 inevitdvel, como na gera 9 fo de notas 
musicals ou quando se deseja velocidade 
na movimenta^o de figuras no video, 
como nos jogos. £ comum tambem, nes- 
tes casos, necessitarmos passar variiveis 
ou dados, de um modo geral, para estas 
sub-rotinas. 

Nestas ocasides, nosso BASIC dispoe 
de instates como CALL, USR ou o 
POKE (esta ultima apenas para passar 
dados), cada qua] com seu singular po- 
tential. Mas, na maioria das vezes, o 
meio que parece ser o mais eficiente, o 
mais prdtico ou atd mesmo o mais sim- 
patico e elegante d o cdlebre Ampersand 
( &). Para se chamar uma ou mais sub- 
rotinas em linguagem de miquina, como 
extensao ao BASIC e, ao mesmo tempo, 
passar dados, mesmo que complexQS 
como uma string , o Ampersand 6 o meio 
mais consagrado. 

Ocorre, contudo, que nossos manuals 
n£o trazem muita noticia sobre o em- 
prego do Ampersand. No manual do 
Apple ( # A2L0006, pg 123), por 
exemplo, apenas consta uma nota que 



diz: “o Ampersand destina-se somente 
ao uso interno do computador; ele n5o 
e propriamente um comando e sim um 
simbolo que, quando executado como 
uma lnstru^^o, causa um pulo (jump) 
para o endere 90 S3F5". De fato, o 
Ampersand n£o 6 propriamente um co- 
mando, a n£o ser quando associado a 
uma sub-rotina em linguagem de maqui- 
na, configurando-se assim, eventualmen- 
te, uma extensao para o nosso BASIC. 

No entanto, esta vaga explica^o n£o 
orienta o usuario quanto ao adequado 
emprego do recurso. A sua aplica^Jo, na 
realidade, constitui-se numa t^cnica 
particular e nem sempre t£o simples - e 
preciso, antes de mais nada, compreen- 
der bem como o Applesoft trabalha na 
interpreta 9 ao dos comandos em um pro- 
grama. Vamos entfo preencher esta la- 
cuna, discutindo o emprego da tdcnica 
do Ampersand. Como ele pode ser em- 
pregado a fim de estender o BASIC, 
adicionando comandos extraordindrios 
ao nosso interpretador, de forma elegan- 
te e eficiente. 

Para o exame que se segue, presumo 
que o leitor ]£ esteja habituado a traba- 
lhar em Assembler. Receio que o n^o 
iniciado tenha dificuldade em acompa- 
nhax mas, de qualquer forma, lendo com 
cuidado certamente encontrari informa- 
9 oes uteis. 



O AMPERSAND 

Vimos que quando o BASIC encon- 
tra o Ampersand numa linha do progra- 
ma, ele faz um pulo para o endere^o 
S3F5. Vamos ver o que isto significa. O 
endere 90 S3F5, bem como outros no 
alto da pagina S03, sao reservados para 
conter vetores. Vetores que nada mais 
sSo do que instru 90 es do tipo JMP. 
Assim, o BASIC, durante a execu 92 o do 
programa, encontrando o Ampersand, 
vai “procurar" naquele endere 90 um ve- 
tor, que devera estar apontando para a 
sua sub-rotina em linguagem de miqui- 
na, carregada em algum ponto da memo- 
na segundo sua conveniencia. A sub-ro- 
tina ser i ent^o executada e. em seguida, 
o Applesoft volta a assumir o controle, 
dan do continuidade ao programa em 
BASIC. 

Tudo muito semelhante ao um sim- 
ples CALL, exceto pelo fato de que o 
endere 90 6 passado via vetor. Desta for- 
ma, a primeira provide ncia do programa- 
dor 6 alocar, a partir do b>le S3F5, 
uma instru^o da forma JMP aaaa, onde 
aaaa 6 o endere 90 da sua sub-rotina. Es- 
ta lnstru^o ocupari enta^o os bytes 
S3F5, S3F6 e S3F7, que s£o reserva- 
dos para este fim. 

Bem, at£ agora nada de extraordind- 
rio. Isso basta, se voce deseja apenas que 
o & funcione como um simples CALL 
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sub-rotina. Ndo obstante, se voce for 
emprega-lo para chamar duas ou mais 
fun^s diferentes, dentro de um mes- 
mo programa, e/ou passar dados para a 
sub-rotina, d preciso um pouco mais do 
que isso. Como, por exemplo, se voce 
qiuser utiliza-lo para chamar uma sub- 
rotina que gere notas musicais, como a 
que foi apresentada por MS na edi^o de 
maio/83, no artigo “0 som nosso da ca- 
da micro”, de Rudolf Homer Jr. Nes- 
te caso, trata-se de uma sub-rotina sim- 
ples, que gera uma nota em fun^o de- 
dois dados: o periodo e a dura^o da no- 
ta. Na ocasido, foram adequadamente 
empregados os comandos POKE e 
CALL para, respectivamente, passar os 
dados e chamar a sub-rotina. Vamos ver 
como isto pode ser feito com o &. 

Poderiamos declarar simplesmente 
&P, D, por exemplo, onde P serd o valor 
do perfodo e D a dura^o. Assim, ao 
invds de tres declara9<5es (POKE P: 
POKE D: CALL sub-rotina) terfamos 
apenas uma. Se por um lado esta unica 
declare 9^0 d, como se pode ver, mais 
elegante e prdtica, exige maior trabaiho 
na constru^o da sub-rotina que, agora, 
necessita interpretar o comando, como 
faz o interpretador BASIC. Temos, en- 
tdo, que antepor a nossa sub-rotina de 
gera^o de notas, no caso, instru^es 
para interpretar a declara^o, verifican- 
do a smtaxe e colhendo os dados para 
depois executd-la. Para isso, vamos ver 
como o BASIC faz este trabaiho de 
interpretar os comandos e, especialmen- 
te, estudar uma particular rotina do 
Applesoft conhecida como CHRGET, 
que, provavelmente, lhe ser d muito util 
outras vezes. 

INTERPRET ANDO 

Sempre que voce estd dirigindo as li- 
nhas de um programa, em Applesoft ou 
congenere, esse interpretador estard 
executando a tarefa de codificar e ar- 
mazenar suas instru9©es em lugar pr6- 
prio da mem6ria para, futuramente, 
serem Lidas e executadas mediante o 
comando RUN. Vejamos um exemplo. 
Considere as seguintes linhas: 

10 TEXT 

20 POKE 6,35 s POKE 7,75 s CALL 768 
30 & 72,63 

Apos digita-las, voce podera verificar 
como finalmente elas foram codificadas 
e armazenadas. Para isto, chame o mom- 
tor com um CALL-151. Em seguida, jd 
no monitor, entre com 800.828. Assim, 
teremos: 

*801.828 

0801- 07 08 OA 00 89 00 1C 

0808- 08 14 00 B9 36 2C 33 35 

0810- 3A B9 37 2C 37 35 3A 8C 

0818- 37 36 38 00 26 08 IE 00 

0820- AF 37 32 2C 39 00 00 00 



Muito bem, at estao aquelas linhas 
codificadas. Do byte S801 ao S806 te- 
mos a linha 10; do S807 ao S81F, a 
linha 20; do S820 ao $825, a linha 30 
e, finalmente, os dois ultimos bytes, com 
zeros, que represent am o fim do progra- 
ma. Os dois pnmeiros bytes de cada li- 
nha indicam o endere90 da prdxima li- 
nha do programa. Os dois subseqiientes, 
o numero da presente linha e, em segui- 
da, as dtfdara95es propnamente ditas. 
Repare que toda linha termina com um 
zero e que todas as palavras reservadas, 
como TEXT, POKE, etc., ocupam ape- 
nas um byte, que terd sempre um valor 
maior ou igual a $80, correspondente- 



mente. Assim, pare o TEXT temos o va- 
lor $89, pare o POKE o valor SB9, e 
assim por diante. Nosso & e representa- 
do no byte $820 pelo valor SAF. 

Agora, quando o Applesoft receber 
o comando RUN, ele ter d que it buscar 
o programa a partir do byte $80I;ler, 
byte por byte; interpretd-los e executar 
as instru95es. Para esse trabaiho, ler 
byte por byte, o Applesoft se utiliza de 
uma sub-rotina conhecida como 
CHRGET (listagem 1). Precisamos estu- 
dd-la porque faremos o mesmo uso para 
interpretar nosso Amper-Comando. 

Esta sub-rotina d construida pelo 
Applesoft e ire residir na RAM, a partu 
do byte S00B1, na pagina $00. Sua 
fun9ao e buscar um cardter (byte) em 
algum endere90 previamente ajustado 
no s byt es $B8 e $B9, conhecidos como 
TXTPTR. Assim, seu pnmeiro trabaiho 
d incrementar TXTPTR para apontar o 
prdximo cardter a ser recuperado. Em 
seguida, este cardter d carregado no 
acumulador. E, finalmente, serd ajusta- 



do Z = 1 (Z-flag set) se um $00 (fim de 
linha) ou um $ 3 A ( : ) for encontrado e, 
ainda, C = 0 (C-flag clear) se um (positi- 
vo) digito numdrico (0-9) for encontra- 
do. Repare que se a sub-rotina for cha- 
mada a partir da posi9do S00B7 (entra- 
da' secundaria conhecida como 
CHRGOT), teremos o mesmo processo, 
exceto que agora ndo havera o incre- 
mento de TXTPTR. 

Durante a execu9do de um programa, 
o Applesoft terd ajustado TXTPTR 
pare, via CHRGET, buscar, um a um, os 
bytes que compOem o programa — pre- 
viamente codificados e ordenados na 
memdria — a fim de processd-los. No 



momento em que ele, em algum ponto, 
encontrar um Ampersand, chamard no- 
vamente CHRGET, para e so entdo des- 
viar para o vetor S3F5 (d importante 
entender isto). Desta forma, ao se miciar 
o processamento de sua sub-rotma, 
TXTPTR conterd o endere90 do cardter, 
em seu programa, que vem lmediata- 
mente ap6s o &. Esse carater, por outro 
lado, estard no acumulador. Ai esta 
todo o truque. 

Podemos agora construir nossa sub- 
rotina, capaz de ler o que se segue ao &, 
interpretando e executando. Para isto, 
ndo existe um padrdo especifico. Tudo 
vai depender da arquitetura do coman- 
do, da forma, da sintaxe e da fun9do, 
enfim. Poderemos sempre utilizar para 
ler simplesmente CHRGET ou qualquer 
outra conveniente sub-rotina do Apple- 
soft, que ainda execute outra fun9do de- 
sejdvel. Ou, atd mesmo, voce poderd 
criar algo extraordinario. Tudo, afinal, 
vai depender da habilidade e expenen- 
cia do programador. 
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OOOOj 




1 
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* CHRGET 
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OOOO: 
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OOOO: 
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t (APPLESOFT) % 




OOOO: 
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* 




OOOO: 
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ttttttattaaat 




OOOO: 
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; 






PROXIMO 


OBJETO DESIGNADO 


CHRGET. OB JO 


OOB1 : 




10 


ORG 


♦GOBI 




OOB1 : 




11 


; 






GOBI : E6 


B8 


12 


CHRGET INC 


*B8 


I INCREMENTA TXTPTR 


00B3: DO 


02 


13 


BNE 


CHRGOT 




00B5: E6 


B9 


14 


INC 


♦B9 




OOB7 : AD 


08 02 


15 


CHRGOT LDA 


$0208 


; APANHA 0 CAR AC TER 


OOBA: C9 


3A 


16 


CMP 


#$3A 


;£ < OU - "i"? 


OOBC: BO 


OA 


17 


BCS 


♦00C8 


; SIM - SAI 


OOBE: C9 


20 


18 


CMP 


#$20 


; NAO - VERIFICA SE £ ESPACO 


OOCO: FO 


EF 


19 


BEQ 


CHRGET 


; SIM - PEGUE 0 PROXIMO 


OOC2: 38 




20 


SEC 




; ASSEGURA C*0 SE 


00C3: E9 


30 


21 


SBC 


#$30 


; DIGITO NUMERICO 


00C5 : 38 




22 


SEC 






00C6: E9 


DO 


23 


SBC 


#$DO 




00C8: 60 




24 


RTS 




; SAIDA 


at BEM 


SUCEDIDO ASSEMBLY: SEM 


ERRO 
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Listagem 2 









0300: 20 


F8 


E6 
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JSR 


GETBYT 


FONTEs 


AMPER-SOM 




0303:86 


06 
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STX 


PERIODO 
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BE 


DE 


31 




JSR 


CHKCOM 


OOOO : 
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* * 


0308:20 


F8 


E6 


32 




JSR 


QE TBYT 


0000: 


3 


* AMPER-SOM * 


030B: 86 


07 




33 
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DURACAO 
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* * 


030D: A5 


06 
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5 


* <& P, D) * 


030F : FO 
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0311: 
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* D=DURACAO * 


0311: 






38 


2 


SOM 




OOOO: 


9 


* * 


031 1 : 
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PROXIMO OBJETO DESIGNADO AMPER-SOM. OBJ 


0314:88 
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DEY 




0300: 
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ORG *0300 


0315: DO 
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BNE 
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. 


0317 : C6 
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DURACAO 
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SAIDA 
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; IGUALDADES 
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PERIODO EQU *06 


0320: 4C 
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03 


49 




JMP 


BEEP 


0007: 


19 


DURACAO EQU *07 


0323: 
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E6F8: 
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GETBYT EQU *E6F8 


0323: 
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ssssas 


===== 


DEBE: 
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CHKCOM EQU *DEBE 


0323: 
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5 


PAUSA 




FCA8: 


22 


WAIT EQU *FCA8 


0323: 
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====== 


===== 


C030: 


23 


SPKR EQU *C030 


0323: 
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. 
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A8 


FC 
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JSR 
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RTS 
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Todavia, deve-se ter em conta, e ter o 
cuidado de que, ao retornar para o 
Applesoft, TXTPTR aponte para a posi- 
920 imediatamente ap 6 s o Amper-Co- 
mando, que dever* equivaler ou a um 
S00 (fim de linha) ou a um S3A ( : ). 
Isto, naturalmente, para que o Apple- 
soft, ao resgatar sua autoridade, possa 
continuar o 16gico processamento do 
programa em BASIC. Lembre-se de que 
CHRGET, se empregado adequadamen- 
te, lhe assegurara isso quando acusar 
Z = 1 . Por via das duvidas, existe uma 
sub-rotina do Applesoft, em SD995, 
que garante que TXTPTR esta no fim da 
declara^ao. Assim, voce podera encerrar 
sua sub-rotina com um conveniente JMP 
SD995. 

UM EXEMPLO SIMPLES 

Vamos ver, para finalizar, um exem- 
plo simples. Voltemos 2 mencionada 
sub-rotina para gerar notas musi- 
cals. Vamos entao associd-la ao Amper- 
sand. Havia sugendo antenormente a 
seguinte forma: &P, D; onde P corres- 
ponde ao valor do periodo e D ao valor 
da dura^o. Acompanhe agora a lista- 
gem 2 que traz, em Assembler, o progra- 
ma denominado Amper-Som. 

Pnmeiramente 6 preciso buscar o va- 
lor do periodo e dura^io. Ja existe uma 
sub-rotina do Applesoft, capaz de fazer 



isso para n 6 s. £ conhecida como 
GETBYT e reside em SE 6 F 8 . GETBYT 
avalia uma expressSo apontada por 
TXTPTR e salva o resultado no registro- 
X. O resultado deverd ser um valor entre 
0 e 255, que 6 o nosso caso, senio o 
programa serd mterrompido com a men- 
sagem de quantidade llegal. Amper-som 
chama entffo GETBYT e depois transfe- 
rs X para o byte S06. Em seguida, cha- 
ma CHKCOM e SDEBE, outra sub-roti- 
na do Applesoft que verifica se o car- 
ter apontado por TXTPTR corresponde 
a uma Caso positivo, TXTPTR 6 in- 
crementado e o programa continua; do 
contrdrio, e mterrompido com a mensa- 
gem de erro de sintaxe. Em seguida. 
GETBYT apanha a dura^o que 6 trans- 
fenda para S07. Repare que at£ aqui foi 
feito o correspondente a POKE P, 6 : 
POKED, 7. 

A partir dai, de posse dos dados, 
vamos a execu^o propnamente dita. 
Pnmeiro carrega-se o acumulador com o 
valor do periodo. Se este for igual a ze- 
ro, o programa far* uma pausa, corres- 
pondente 2 dura^o indicada. Para isso, 
carrega-se o acumulador com o valor da 
dura^o e chama-se WAIT em SFCA 8 , 
que gera uma pausa em funpao do valor 
no acumulador: 1/2(26+27 A+5 A 2 ) p 
segundos. Se o periodo for diferente de 
zero, executa-se a nota. Saiba que a sai- 
da TXTPTR cstara apontando para o 



prdximo cardter apos a declara^o, co- 
mo desej 2 vel. uma vez que GETBYT 
avan^a TXTPTR. 

Muito bem! Espero que a an21ise te- 
nha sido adequada para voce. As possi- 
bilidades, como voce deve ter percebi- 
do, s 2 o inumeras. Tudo vai depender da 
sua criatividade e habilidade. Voce po- 
der 2 incrementar seu BASIC com mui- 
tos outros comandos. Se voce for usar 
mais um Amper-Comando, dentro de 
um mesmo programa, 6 razo 2 vel que 
voce defina um rdtulo para cada um, 
como por exemplo: & ELSE, & WAIT, 
ou ainda & A, & B, & C e assim por 
diante. Isso, naturalmente, visa a distin- 
gui-los e ate dar um toque de elegancia. 
Neste caso, cuidado com as palavras re- 
servadas. Veja bem: suponha que, em 
nosso exemplo, ao mv£s de & P, D eu 
optasse por & NOTA (P, D) ou mesmo 
& TOM (P, D). Observe que NOT e TO 
s2o palavras reservadas pelo Applesoft e, 
assim, seriam codificadas como tal. 
Aldm das conseqiiencias 6 bvias, listan- 
do-se o programa o comando lna apare- 
cer desfigurado. _ 



Nelson Filho dedica-se ao desenvolvimento e 
pesquisa de software bisico, prestando servi- 
qos de assessoria ticnica para virias empresas 
de Informitica. Possui um Apple II Plus hi 
dois anos. 
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BIANCHI, P.; BEZERRA, M., 
M/CROCOMPUTADORES - 
Arquitetura, Projeto e 
Programagao, LTC — Livros 
T6cnicos e Cientfficos Editors 
S. A., Cr$ 5.800,00 (jsn/84). 

B 0 texto se destina aos leitores 
que j3 sabem o que 6 um compu- 
tador e o que 6 um programa. Nao 
6 necessirio nenhum conhecimen- 
to de eletronica. Visa ao apfofun- 
damento dos conhecimentos rela- 
tives a construgao de computado- 
res e programagao a nfvel de lin- 
guagem Assembler e de miquina. 
Os profissionais e estudantes de 
computagSo, bem como os entu- 
siastas do computador pessoal en 
contrarao neste livro um meio de 
satisfazer sua ansia de aprofunda- 
mento. 

O texto se originou de notas 
de aulas de v£rios cursos referen- 
tes a projetos com microprocessa- 
dores ministrados pelo Prof. Paulo 
Bianchi na Universidade de Santa 
Cfara, Califbrnia. e na Universida- 
de Federal do Rio de Janeiro, 
bem como dos cursos referentes a 
programagao de computadores 
ministrados pelo Prof. Milton Be- 
zerra, tamb6m da UFRJ. 



YONG, C. S., Banco de Dados, 

Editors Atlas, Cr$ 7.900,00 
(jan/84). 

B Um guia prdtico a todo prof is- 
sional e usuirio que estejam en- 
volvidos no desenvolvimento e 
utilizagao de BD 6 a principal fun- 
g5o deste livro. Nos exemplos for- 
necidos, o autor procurou trans- 
mits uma visao essencialmente 
prdtica no projeto e implantagao 
de BD. Esse processo 6 efetuado 
atrav£s da real utilizagao dos pro- 
gramas e mddulos constituintes 
dos sistemas de gerenciamento de 
BD mais conhecidos no mercado 
brasileiro. 

O exame detalhado das fun- 
goes e estruturas internas de siste- 
mas de gerenciamento de BD ob- 




BORGES, J. A ..BASIC- 
ApHcagdes Comer dais, LTC - 

Livros T6cnicos e Cientfficos 
Editors S. A., Cr$ 4.500,00 
(jsn/84). 

■ A abordagem geral do livro se 
baseia em exemplos voltados para 
aplicagdes do tipo gerencial. Par- 
tindo de programas completos, 
que sao analisados, o leitor 6 guia- 
do ao entendimento do computa- 
dor e da atividade de programa- 
gao. O livro cobre todos os deta- 
Ihes da linguagem BASIC incluin- 
do-se os aspectos que nao sSo pa- 
dr onizados nas diversas versdes 
para diferentes computadores. O 
capftulo sobre arquivos fornece, 
especial mente, a base para desen- 
volvimento das aplicagoes de uso 
na administragao em geral. Embo- 
ra a enfase seja no BASIC para mi- 
cros, esse texto poder£ ser utillza- 
do para a formagao de programa- 
dores em BASIC para outros com- 
putadores de maior porte. 



% BANCO 
DE DADOS 




jetiva fornecer ao leitor uma visao 
conceitual e tedrica da tecnologia 
atual dos SGBD. A este aspecto 
adicionam-se capi'tulos sobre pa- 
dronizagoes da tecnologia de BD e 
estruturagao e desempenho de ar- 
quivos. Outro enfoque relevante 
refere-se £ construgao de model os 
de dados, importante referencial 
para posterior projeto, implanta- 
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ABREU, C. A.; REIS, D., Curso 
de BASIC — Volume /, Edigao: 
Micro-Kit, Cr$ 4.200,00 (jan/84). 

B O Curso de BASIC Volume I 6 
resultado da experidneia de apro- 
ximadamente oitenta cursos de 
linguagem BASIC promovidos pe- 
la Micro-Kit Educacional. 

O livro 6 composto por dez au- 
las e. ao final de cada uma, sao 
propostos exerefeios de verifica- 
gao de aprendizado, solucionados. 
A primeira aula 6 uma introdugao 
4 programagao e, em seguida, s5o 
explanados os elementos de lin- 
guagem BASIC, conduzindo o lei- 
tor a elaborar um programa apli- 
cativo passo a passo. A parte final 
6 dedicada aos gr^ficos e desenhos 
na tela para jogos. 

Como 6 comum surgirem mui- 
tas duvidas na transformagSo de 
comandos de outras miquinas pa- 
ra as da linha Sinclair, foi criado o 
anexo I, que d3 "dicas" de como 
proceder em tais casos. 

Um dos pontos mais importan- 
tes do livro 6 o planejamento das 
aulas, com programas-exemplos 
correspondentes £ parte tedrica, o 
que possibilita ao leigo aprender 
rapidamente a linguagem BASIC. 



gao e operagao de BD e, por fim, 
uma descrigao e andlise dos prin- 
cipals instruments para adminis- 
tragao de BD. 

A reuniao desses aspectos nu- 
ma mesma obra visa a fornecer to- 
do um conjunto de conhecimen- 
tos que envolve os principals as- 
pectos ligados ao BD. possibilitan- 
do um entendimento e absorgao 
globais do tema. 

LAGROTTA FILHO, Carlos, O 

Microcomputador na Pequena 
Empresa. 

B O Microcomputador na Peque- 
na Empresa 6 um livro em impres- 
sao didaticamente organizada, que 
parte de programas mais simples 
at6 um sistema integrado em on 




SHIMIZU, T., Processamento de 
Dados nas Empresas, Editora 
Atlas, Cr$ 6.500,00 (jan/84). 

| A empresa, a m£quina (hard- 
ware), a andlise e programagao 
(software) e a administragao sao 
os tbpicos do estudo integrado 
que este livro apresenta, dando 
uma visSo e um treinamento gra- 
dual em processamento de dados 
nas empresas. O livro abrange to- 
da a fungao de PD, n£o se limi- 
tando apenas ao CPD, mas procu- 
rando envolver a alta administra- 
gao e os departamentos funcionais 
(contabilidade e finangas, marke- 
ting, produgao e recursos huma- 
nos), num sistema que, de modo 
direto ou indireto, participa do 
funcionamento das tarefas de PD. 

O livro cont6m, entre outras, 
uma explicagao da organ izagao 
funcional da empresa e de como 
os mStodos convencionais de lan- 
gamento, escrituragao e operagao 
com formul£rios podem ser trans- 
formados em um fluxo ou sistema 
de informagSo. Ensina a selegao e 
o uso de um sistema hardware 
adequado de PD para a empresa e 
tamWm programas de software pa- 
ra serem processados pelo compu- 
tador. 



line, e destina-se unicamente aos 
empres£rios de pequenas empre- 
sas que, possuindo um computa- 
dor da classe TK82-C, TK85 e 
NE-Z8000, pretendem utilizd-lo 
com o propdsito de agilizar al- 
guns servigos. 

O livro apresenta programas 
simples e didaticamente estrutura- 
dos, visando ao usudrio que nao 
possui prAtica ou experidneia an- 
terior no relacionamento com 
computadores. A linguagem BA- 
SIC, dos programas, nao envolve 
Idgica de programagao muito 
complexa e nem se vale de opera- 
dores muito complicados, tais co- 
mo matriz multidimensionada, 
operadores Idgicos, etc. O resulta- 
do disso sao programas faeflimos 
de serem entendidos eassimilados. 
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Ingredientes: imaginaqao, paciencia e conhecimento de eletronica. 
Resultado: seu TK com interfaces para fazer o que voce quiser 



Arrisque e petisque 
com seu micro 

Wilson de Carvalho Junior 



Q uando pensei em comprai um microcomputador pes- 
soaJ, tinha uma pergunta em mente para a qual n§o sa- 
bia a resposta: sena possivel utilizar o micro para con- 
trolar algum equipamento? Tal questao vinha do fato de eu 
possun um sistema de ferro-modelismo e imaginar se podena 
controld-lo atravds do micro. 0 controle deveria ser sobre a ve- 
locidade das locomotivas (duas independentes), a dire 9 ao 
(frente-r^) e sobre os desvios (14 desvios, 28 posi 95 es). 

Possuo um TK82-C e foi a partir da i que comecei a pensar 
em tudo o que eu poderia fazer com ele. O meu objetivo ao 
escrever este artigo foi justamente este: mostrar o que )& con- 
segui fazer com meu micro. 

A primeira mu dan 9 a que fiz no TK foi a inversao da tela, 
isto 6 , caracteres brancos em fundo preto. Utilizando uma cha- 
ve de um p61o/duas posi 96 es e muita paciencia, consegui efe- 
tuar a mudan 9 a. 0 esquema da inversSo esti na figura 1 e, pela 
sua simplicidade, acho que dispensa maiores comentirios. 



CORTAR O CIRCUITO IMP RES SO 






NORMAL 



i INVERSO 



Figure 1 



Quando passei para as interfaces 6 que a coisa complicou 
um pouco. Como nSo disponho do esquema etetrico do TK e 
nem de um osciloscdpio, fica meio diffcil projetar alguma in- 
terface. £ preciso muita calma e nSo desanimar com alguns 
problemas que aparecem. 
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CONHECENDO O TK 



O TK82-C utiliza a UCP Z80, cujas pinagem © fun^oes estao 
na figuia 2. No conector traseiio, onde encaixa a expansSo de 
memdna, estao presentes todas as linhas da UCP, atem de +9V, 
•♦•5V e OV. Segundo o manual, € possivel fazer com o TK, a 
pnncipio, tudo o que se faz com o Z80. Foi baseado nesta fra- 
se que achei que poderia construir as interfaces. 

Para ter acesso is linhas da UCP, optei por utilizar o pr6prio 
soquete da expansSo de 16Kb. Furei a caixa plastica da mem6- 
na e coloquei dois cabos de 10 vias paralelas, sol dados nos ter- 
minals do soquete. O manual do TK82-C mostra um desenho 




do soquete traseiro e assim fica ficil determinar quern 6 quern. 
As linhas em qu e sol dei os cabos foram: as oito linhas de dados 
(D0-D7), IOftQ, RD, WR, 0V (comum) e as linhas de endere 90 
AO, A1 , A2, A3 e A7. 

No controle de sistemas externos i UCP 6 necesslrio o uso 
de instances de entrada (IN) e saida (OUT). Na figura 3 temos 
os diagramas relativosao tempo que as operates levamparaler 
e escrever em dispositivos de E/S. Quando a UCP encontra, por 
exemplo, uma instru 9 §o do tipo OUT n,A, onde n pode ter 
qualquer valor entre 00 e FF HEX (255 decimal) e A 6 o acu- 
mulador, a U CP colo card no barramento de endere 90 o nume- 
ro n, a linha IORQ vai a 0 (mdicando que vai haver uma ope- 
ra^So de E/S), a linha WR vai a 0 (indicando que a opera^o 
seri de escrita (saida)) e o conteudo do acumulador A 6 colo- 
cado no barramento de dados. 

Da mesma forma, se a mstru^o for CM A,n, o numer o n se- 
li colocado no barramento de endere 90 , a linha IORQ vai a 0 
como anteriormente, a linha EU vai a 0 (indicando que sera fei- 
ta uma opera^o de leitura (entrada)) e o registrador receberi 
os dados do barramento de dados. 

Observamos assim que, para se efetuar uma opera^o de 
saida, por exemplo, 6 ne cessin o decodificar as linhas de ende- 
re^o, bem como as linhas IORQ e Wft. 

DECODIFICADORES, LATCHES E CONVERSORES 

Foi na parte referente a decodificadores que encontrei as 
maiores dificuldades com rela 9 §o ao TK82-C. Sabemos que 
existem 256 posi^es de enderesamento para perifericos de 
entrada e 256 posi^des para os de saida na UCP Z80. Contudo, 
o TK nio aceita todas estas posi^Oes. Pelo que pude observar, 
parece que os endere^os de saida do tipo l+4n (n = 0,1, 2...) 
nSo sfo aceitos pelo sistema. Se tentarmos tais endere^os, o 

m 
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LIVRARIA SISTEMA 

Loja: GALERIA METRC>POLE. U. 8 • 1?S/LOJA 
TE LS. : 259 1 503 - 257-61 1 8 SP. 

ENTRADAS DA GALERIA: 

AV. SAO LUIZ, 187 - (Antigo 153) 

PRACA DOM JOSG GASPAR. 106 SP. 

SEMPRE NOVIDADES 

1 - GER^NCIA DE BANCO DE DADOS PARA MICROCOMPUTADORES - 

BROONER 1983 - Cr$ 4.490.00 

2 • DOCUMENTACAO DE SOFTWARE Lomac 1983 - Cr$ 3.200.00 

3 - SISTEMAS OPERACIONAIS P/MICROCOMPUTADORES - Dhamka - 

1983 - Cr$ 6 900.00 

4 • O SEU COMPUTADOR PESSOAL - Wait# 1983 - Cr$ 5900.00 

5 - GUIA DE LINGUAGENS DE COMPUTADORES Halm* 1983 - 3.900. 

6 ASSEMBLY LANGUAGE GRAPHICS FOR THE TRS-80 COLOR COM- 
PUTER • Inman - 1983 - Cr$ 28 000.00 

7 WRITE YOUR OWN APPLE GAMES - Aniti* - 1983 - Cr$ 27.000,00 

8 - PROGRAMMING THE APPLE II IN BASIC - Tebb# - 1983 - Cr$ 32.000. 

9 HOW TO WRITE AN APPLE PROGRAM - Faulk 1982 - Cr$ 28.000.00 

10 PROGRAMMING THE APPLE - A Structured Approach - Campbell • 

1982 - Cr$ 37 000.00 

11 SUPERCALCI The Book - Beil 1983- Cr$ 34.000,00 

12 - ACCOUNTANTS BASIC PROGRAMMIN FOR THE APPLE II • Parker - 

Cr$ 29 000.00 

13 - HOW TO DO IT ON THE TRS-80 Model l-ll-lll • Color Computer and Model 

100 Barden Jr. - Cr$ 56.000.00 

14 - TRS DOS 2.3 DECOED & OTHER MYSTERIES - Fervour - Cr$ 5600Q 

15 - THE CUSTOM TRS-80 & OTHER MYSTERIES - Kittt - Cr$ 56.000.00 

16 - THE CUSTOM APPLE & OTHER MYSTERIES - Hofacker - Cr$ 48 000. 

17 - HOW TO WRITE A TRS-80 PROGRAM • Faulk - Cr$ 28 000.00 

18 LEARING TO PROGRAM IN C • Plum - CR$ 47.000.00 

19 COMPUTER ART AND ANIMATION FOR THE TRS-80 - Hei*erman - 
1983- Cr$ 25.000.00 

20 - GAMES FOR YOUR ATARI COMPUTER • Bunn - 1983 - Cr$ 11.400,00 

21 • APPLE II COMPUTER GRAPHICS - Williens - 1983 - Cr$ 38.000.00 

22 • ELEMENTARY APPLE - Sander* 1983 - Cr$ 28.500.00 

23 • BUSINESS PROBLEM SOLVING WITH THE IBM PC & XT - Wortman - 

1983 — Cr$ 38 000 00 

24 COMPUTER GRAPHICS FOR THE IBM PERSONAL COMPUTER - Hearn 
1983- Cr$ 37 000.00 

25 BASIC ENGINEERING AND SCIENTIFIC PROGRAMS FOR THE IBM 
PC - Wolfe 1983 - 38 000.00 




ATENDEMOSPOR REEMBOLSO 
CORREIO E VARIG - (fora da Capital) 
PE DIDOS PARA: Cx. Postal 9280 
CEP 01051 - SAP PAULO - SP 




MONK ROMPE A BARREIRA 
DOS TRS-80 E LANCA A 
LINHA DE PROGRAMAS P/ 
OS MICROS TIPO cippic . 
(Mcixxi* UPII, 1)8100, ate) 



Tome a decisao que mail de 2000 
usuarios de programas MONK para os 
micros TRS-80 CCP308, CP588, NAJA, JR, 
DGT e P8000/l''2> tomaram : - Ponha o 

seu APPLE para trabalhar com os 
aplica.tivos pr ontos para usar da MONK. 

- OS PROGRAMAS MAIS PRATICOS 

- 03 MANUAIS MAIS COMPLETOS 

- A MAIS AMPLA GARANTIA 

- A MAIOR REDE DE REUENDAS * 

77 EM 20 ESTADOS. 

Lista parcial de programas * 
Gerenciador de Banco Dados / Gerador 
de Programas, Contas Pagar / Receber 
Estoques, Conta Bancaria, Editor Texto 
Contabilidade.. Mala Direta*, Compiladores 
Home Pack’s e Game Pack's .• 

Procure um revendedor MONK’ de sua 
cidade , ou peca um catalogo de 
programas para seu microcomputador 
tipo APPLE ou TRS-80 . 

monk micro inform&tica ltda. 

R Augusta. 2690 2 and Lotas 318 e 324 
Teto (011)2800163 #852 2958 Cep 01412 



monk, 

o software que faz voct ficar 
fefiz por ter um micro. 









ARRISQUE E PETISQUE COM SEU MICRO 



CIl-A 




TK executa a opera^o e apaga . £ preciso, ent£o, desligar a 
fonte e tornar a ligd-la — com a consequente perda do progra- 
ma - para que as coisas voltem a funcionar normalmente. Os 
endere^s pares at£ 62 e os impares 3, 7, 11, 15, 19, 23, 27, 
31, 59 e 63 foram testados e funcionam corretamente. 

Vejamos como efetuar a decodificacao destes endere^os. 
Partmdo da hipdtese de que necessitamos de um nivel 0 para, 
digamos, ter acesso a determinado penfenco de saida, precisa- 
remos inverter todas as linhas de endere 90 que estiverem no 
nivel 1, efetuar a opera^o 16gica OU com tais linhas, mais as 
linhas d e ende re co q ue estiverem com nivel 1 , e tamtam com 
os sinais IORQ e WR. Na figura 4 temos um decodificador para 
o endereco 03. Se a operacfo for de entrada, basta trocar a li- 
nha WR por RB. No mercado, existem circuitos integrados que 
fazem esta decodificacao para oito saidas. 

Observando a figura 5, vemos o esquema de um decodifica- 
dor 3x8, utilizando o Cl 74LS138. Note que este decodifica- 
dor seleciona as portas pares de 00 at^ 14. A linha A7 foi em- 
pregada para habilitar o decodificador toda vez que A7 = 0. 
Isto 6 essencial, uma vez que o TK utiliza algumas portas (255 e 
254) para enviar dados ao gravador e, assim, quando o TK usar 
o endereco 254 (11111110 bindrio) este serd decodificado e 



acionard o penfdnco 14 (00001110), o mesmo acontecendo 
com o endereco 255 (1 1 1 1 1 1 1 1), uma vez que a linha A0 nSo 
estd sendo decodificada. 

Passemos agora para os latches. Quando queremos mandar 
dados da UCP para algum circuito extemo, por exemplo um 
conversor D/A, d fundamental que esses dados sejam mantidos 
na entrada do conversor . Conseguimos isto atravds dos circui- 
tos flip-flop chamados latches (tranca). A partir dos Cls 
74LS74 e 74LS174, podemos construir um latch de 8 bits, 
como mostra a figura 6. A entrada de clock dessscs circuitos 
conectamos a uma saida do decodificador e, desta forma, cada 
vez que a saida do decodificador sofrer uma transic<fo l-> 0 -* 
1 , os dados do barramento de dados serfo copiados na saida 
do flip-flop e mantidos \& atd que nova transicio na entrada de 
clock ocorra. 

Se ligarmos agora a saida do latch a um conversor D/A, 
obteremos, na saida do conversor, uma tensao analogica, que 
serd proporcional ao numero binirio que estiver colocado na 
entrada. 

Uma forma simples e barata, por£m n^o muito precisa, de 
se fazer um conversor D/A 6 valendo-se de oito resistores de 
1% de tolerancia e de um amplificador operacional, como mos- 



♦ 5V . 



Y 0 Y 1 Y 2 Y 3 Y 4 Y 5 Y 6 



A 

A 

A 



IORQ 

WR 

A. 



16 15 14 13 12 11 10 9 
74LS138 

1234 5678 



~"^4LS04 



PORTA s SAIDA 



0 


^0 


2 


Y 1 


4 


Y 2 


6 


Y 3 


8 


V 4 


10 


Y 5 


12 


Y « 


14 


Y 7 








Figura 5 



Figura 6 
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Figura 7 




tra a figura 7. Este ultimo esti ligado como inversor e, assim, 
a tens9o de saida ser i igual a: 



A UMA SAIDA DO 
DECODIFICADOR 



Figura 8 



V _5R 1 f a 0 + + a 2 + a 3 + a 4 + a $ + ♦ a ? 

-R- I T T T T? 37 a m 

Para saida positiva, basta colocar outro amplificador operacio- 
nal ligado como inversor com ganho -1. 

Se for necessdria uma conversJo com 

maior precis5o e muito maior custo, 
podemos utilizar o Cl DACO800 (Cr$ 
16.000,00) e urn amplificador operacio- 
nal 741 , como demonstra a figura 8. 

Usando os tres circuitos mencionados 
(decodificador, latch e conversor), pude 
saida analog i ca controlar a velocidade das locomotivas. 

— Na figura 9 temos o circuito do contro- 
ls * ov lador de velocidade duplo (duas locomo- 

v max " u ' 99v tivas). Foram empregados dois endere- 

90s, a saber: endere90 00 aciona o con- 
trole da locomotiva 1 e endere90 02 
aciona o controle da locomotiva 2. Se, 
no lugar da chave inversora de polarida- 
de, colocarmos um rel£ cuja bobina 6 
acionada pela saida de um circuito 
latch , podemos inverter a dire9fo das 
locomotivas (frente-rd) atrav^s de um 
programa. Vejamos: usando as portas de 
saida 04 e 06, teriamos as seguintes pos- 
sibilidades de instru^o: 



SAIDA ANALOG I CA 



5 6 
“ 14 


1 7 8 9 10 11 12 N 




DAC0800 


- 15 
3 


16 13 1 y 


h 

-12V 


jj ii 

r^i2v 






MSB 


l 1 ] jLSB 


< 

- 14 


1 7 8 9 10 11 12 \ 




DAC0800 


- 15 
-2- 


16 13 1 y 



(.01 * l2V 
- 12V 



jVxfJ^(0 a 11.99V] 



CONVERSORES D/A 
I 1 4K7 I 



tHi- 




CONTROLE 
MANUAL V 



J ' 


JN3055 

I 




I A LINHA 
* 1 




> 


r£ 

1 


FRENTE 



CONTROLE Tin lN * 14 
MANUAL V J 



DECODIFICADOR 

5 5 5 5 

ol ol ol ol 
15 14 13 12 

16- Vcc 
74LS138 8_ 010 

1 2 3 4 5 6 



GERADOR DE PULSOS 
COM LARGURA VARlAVEL 



D 7 D 6 D 5 D 4 D 3 D 2 D 1 D 0 



r2 

POT£NCIA 



Figura 9 
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• OUT 04, A com A = 00 - miquina 1 para frente 

• OUT 04, A com A = 01 - mdquina 1 para trds 

• OUT 06, A com A = 00 - mdquina 2 para frente 

• OUT 06, A com A = 01 - mdquina 2 para trds 

Podemos tambdm controlar o ganho de um amplificador e, 
portanto, controlar o volume de um sistema de som. Um 
exemplo de como isto pode ser feito estd na figura 10. Note 
que temos 1 6 posi^Ses de ganho se usarmos um Cl 4046 — e 
256 pos^Oes se usarmos dois CIs. 




Figura JO 



Aldm destas, podemos citar outras aphcaijoes: controle de 
todo o sistema de som (volume, tonalidade, balan^o), controle 
de freqiiencia de osciladores atravds de programa, um sistema 
de luzes seqiienciais totalmente programdvel etc. Os empregos 
sao muitos, dependendo apenas da lmagina^ao de cada um. 

OS PROGRAMAS 

As sub-rotinas de E/S sSo extremamente simples. Utihza- 
mos POKE e USR para introduzir as instru 96 es em linguagem 
de rndquma e, respectivamente, executd-las. Atd agora, usei 
apenas as instances em Assembler LD A, x , OUT n, A , RET e 
IN A,n. 

LD A, x carrega o valor de x (entre 00 e 255) no acumula- 
dor A, e RET d uma instru 9 ao de retomo, que fazo processa- 
mento voltar ao sistema BASIC. Um programa que executa 
uma conversdo D/A para cada valor de X, empregando o ende- 
re 90 02 , fica: 



01 


RUN 30 




05 


PRINT "VALOR DE X" 




10 


INPUT X 




15 


POKE 18401, X 




20 


LET A = USR 18400 




25 


GOTO 05 




30 


POKE 18400,62 


LD A,x 


35 


POKE 18402,211 


OUT A, 02 


40 


POKE 18403,02 


RET 


45 


POKE 18404,201 




50 


GOTO 05 






^ARANTA 
SUA MS 
TODO MES ! 



Se voc 6 deseja assinar MICRO SISTEMAS, proceda da seguinte 
forma: 

— envie cheque nominal cruzado no valor de Cr$ 10.000, 
para ATI — An£lise, Teleprocessamento e Informdtica Editora 
Ltda; — anexo, envie tamWm seus dados pessoais: nome, 
profissflo, cargo, empresa e endereco completo para remessa. 
Mas se voc4 quer ficar por dentro mesmo da Informdtica, 
aproveite e assine tamWm INFORMATICA 

& ADMINISTR ACAO: 

— envie cheque cruzado no valor de Cr$ 8.000, para ATI — 
Andlise, Teleprocessamento e Informitica Editora Ltda., e 
n§o se esquega de remeter tamWm seus dados pessoais, 
profissSo, cargo, empresa e endereco para remessa. 

PARTICIPE DA PROMOQAO 
DE FERIAS MS/I&A ! 

Receba, mensalmente, MICRO SISTEMAS e INFORMATICA 
& ADMINISTRACAO pelo preco de Cr$ 15.000. Entre logo 
no nosso pacote anti-inflaciondrio MS/I & A antes que acabe! 
Envie seu cheque cruzado no valor de Cr$ 15.000, para ATI — 
Andlise, Teleprocessamento e Inform^tica Editora Ltda., e 
anexe tamWm seus dados pessoais. Nossos enderecos: Rio de 
Janeiro: Rua Visconde Silva, 25 - Botafogo - CEP 22281 — 
Tels.: (021 ) 266-0339, 286-1 797, 246-3839. SSo Paulo: 
Alameda Gabriel Monteiro da Silva, 1227 - Jardim Paulistano 

— CEP 01441 - Tel.: (011) 280-4144. 



Para gerar uma rampa de voltagem de 0 a Vmax, onde 
Vmax = -5R1 x 255 , basta introduzir as seguintes linhas: 



R 


128 




10 


FOR X = 


0 TO 255 


15 


POKE 18401, X 


20 


LET A = 


USR 18400 


25 


NEXT X 




26 


STOP 




50 


GOTO 10 





E 6 bvio que este mdtodo para gerar uma rampa 6 extrema- 
mente lento e podemos fazer um com an do FOR... NEXT em 
linguagem de mdquina que o tornaria bem mais rdpido. O ma- 
nual do TK traz uma lista das instru 9 des em Assembler do Z80 
com os respectivos cddigos em decimal, e assim fica mais fdcil 
fazer os programas em linguagem de mdquma. 

Estou projetando a interface de entrada, onde a UCP rece- 
berd informa 96 es a respeito da posi 9 ao das locomotivas e pos- 
sa, desta forma, posicionar os diversos desvios, de acordo com 
um programa preestabelecido. 

Quero mformar ainda que todos os cucuitos apresentados 
aqui foram testados e se encontram atualmente em funciona- 
mento, sem apresentar qualquer problema. ■ 



Formado em Ffsica pela Universidade Federal do Parant, Wilson de 
Carvalho Junior atualmente estd fazendo pds-graduagao na Unicamp na 
Area de semicondutores. Tern como hobby a eletrdnica e a microcompu - 
tapSo. 
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Lojas 



de 



microcombutadores 




— a ediqao anterior de MICRO 
SISTEMAS, publicamos a pri- 
meira parte dessa materia, que 
constou de uma reportagem e de 
uma tabela mostrando as lojas 
revendedoras de micros de todo o 
Brasil. Neste numero, damos continuidade e en- 
cerramos a publicacao dessa tabela, urn servico 
ate entao inedito nos veiculos especializados. 

Atraves dela, os leitores poderao identificar as 
lojas mais proximas de sua cidade e escolher a 
revenda a partir dos servicos que ela oferece. 

Conforme ja foi dito, a tabela foi confeccio- 
nada a partir de um questionario enviado a cerca 
de 350 lojas, cujos enderecos foram conseguidos 
atraves de pesquisa ao nosso arquivo e junto aos 
fabricantes de micros (sendo que alguns en- 
viaram sua lista de revendedores e outros nao 
responderam nossa carta). 

Somando-se a isso o numero quase diario de 
revendas que sao inauguradas em todo o Brasil, 
certamente algumas lojas nao receberam nosso 
questionario, visto que nao sabiamos de sua exis- 
tence. 

Portanto, voltamos a pedir que as novas lojas 
revendedoras de micros passem a enviar para a 
Redacao de MICRO SISTEMAS seus enderecos, 
telefones e material informativo. 

Observe na tabela que as questdes nao respon- 
didas pelas lojas nos questionarios foram as- 
sinaladas com um traco (— ). 



Coordenafao geral: Edna Araripe. Apuracao: Stela Lachtermacher, Grapa Santos e Claudia Ramalho 
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PERIFERICOS 



SUPRI MENTOS 



REVISTAS 





CP-200. CP-300. CP-500. Maxxi Impressoras. grav c asset e 
modems, umd disquete. 
monitores. interfaces 

TK85. CP-200. CP-500, HP-85. Impressoras. grav cassete 
CD-6809. PC 1211 umd. disquete tv comum. 

joystick 




BR-1000, D-8000. Alfa 3003, 
Alfa 2064 



CP-200. CP-300. CP-500. 
DGT-100. TK82-C. TK83. TK85 



Impressoras modems, umd 
disquete momtores. 
interfaces teciados 



Grav cassete umd 
disquete joystick 
interfaces, teciados 



Disquetes papei p/ 
impressora 



Fitas cassete. disquetes 
papei p/ impressora. 
cxs p/ disquetes/ fitas 



Fitas cassete disquetes 
papei/fita p/ impressora 
moveis 



Sim. so nacional Sim. qualquer tipo 
(fabric propria) 



So 

nacionais 



Sim. so nacional 



Sim. nacional e 
estrangeiro 



Sim. so nacional 
(Microdigital) 



BELL DO BRASIL 

(MG) 



Software/ system 
house 



Especial izada 
em micros 



Equips Kemitron. Proiogica Impressoras grav cassete Fitas cassete disquetes 
modems, umd disquete papei/fita p/ impressora 
momtores. joystick, 
piotadoras interfaces 




BYTE SHOP 

(MG) 



Especiaiizada 
em micros 



CAP 


Software/ system 


(AM) 


house 



CASTRO 

(SC) 



CHIP SHOP 

(SP) 



COMERCIAL 

SOGEMEC 

(SP) 



COMICRO 

(PR. SC) 



COMPEEL 

(DF) 



COMPUBEL 

(PA) 



Maqumas de 
escrever. micros 



Software/ system 
house 



Maqumas de 
escrever micros 



Especiaiizada 
em micros 



Equips Proiogica. 
Microdigital. Sysdata 



TK83. TK85 Maxxi. AP II. 
JR Sysdata ED-281. ED-381 



DGT-100. DGT-101 . CP-200. 

CP-300. CP-500. TK83. 
TK85 Maxxi. Microengenho 
AP ll. JR Sysdata Naja 
equips Quartzil. Schumec 



POLY 201 DP. Maxxi. CP-200. 
CP-500, TK82-C 



CP-200. CP-300. CP-500 
Naja. Maxxi. JR Sysdata 



Equips Umtron. Spectrum. 
Polymax. Dactron. Proiogica 
Digitus. Dismac. Sysdata 
Microdigital. Proiogica. Softec 



TK83. TK85, equips Polymax 



Impressoras grav cassete 
momtores. tv comum 
interfaces 



Impressoras grav cassete 
modems umd disquete. 
momtores. joystick, 
interfaces 



Impressoras grav cassete 
modems, umd disquete 
momtores. tv comum 
joystick piotadoras 
expansoes. interfaces 



Impressoras modems, umd 
disquete momtores 
joystick interfaces 



Impressoras. modems, umd. 
disquete momtores. 
interfaces teciados 



Impressoras. grav cassete 
modems, umd disquete 
momtores. tv comum 
joystick, piotadoras 
interfaces, teciados 



Fitas cassete. disquetes. 
papei/fita p/ impressora. 
cxs p/ disquetes/ fitas 
moveis 



So 

nacionais 



So 

nacionais 




Sim. nacional e 
estrangeiro 
(Microsoft, 
fabric propria) 



Disquetes papei/fita p/ Nacionais e Sim, so nacional 
impressora. cxs p/ est range ir os 

disquetes/fitas. arquivos 
moveis 



Fitas cassete. disquetes Nacionais e 
papei/ fita p/ impressora estrangeiros 
mo vets 





Impressoras modems! umd 
disquete. momtores. 
tv comum. joystick 
piotadoras. estabiiizadores 
ATEC interfaces teciados 



Fitas cassete disquetes 
papei/fita p/ impressora 
produtos de limpeza. 
cxs p / disquetes/fitas 
arquivos. moveis 
estabiiizadores. piso 
taiso. dutoplast — rodapes 
p/ CPD s 



Fitas cassete disquetes 
papei/fita p / impressora. 
produtos de limpeza. 
cxs p/ disquetes/fitas. ' 
arquivos. moveis 



Fitas cassete. disquetes. 
papei/fita p / impressora 
produtos de limpeza. 
cxs p/ disquetes/fitas. 
arquivos. moveis 



Fitas cassete disquetes 
papei/fita p/ impressora 
arquivos. moveis 



Disquetes papei/fita 
p/ impressora 



So 

nacionais 



Nacionais e 
estrangeiros 



Especiaiizada 
em micros 



Software/ system 
house 




Sim. so nacional 
(Monk) 



Sim. nacional 
e estrangeiro 



Sim. so nacional 
(Sogemec) 



Sim. nacional e 
estrangeiro 



impressoras. grav cassete F.tas cassete disquetes Nac.ona.s e Sim so nacional 
CP-500 (XaT 100 DGT-101 umd disquete tv comum papei/fita p/ impressora estrangeiros 
Maxxi. JR Sysdata. equips joystick, interfaces 

Edisa 




COMPUMIDIA 

(RS) 



COMPUSHOW 

(DF) 



COMPUSYS 

(SP) 



Especiaiizada 
em micros 



Especiaiizada 
em micros 



Especiaiizada 
em micros 




Equips Proiogica 
Microdigital. SID 



CP-200. CP-500. S-700. 
AP H. Maxxi. TK85 PC 1211 



AP II. BR-1000 



TK82-C. TK85 CP-200. CP-300 
CP-500. S-700. DGT-100. 
Naia JR Sysdata. AP ll 
Maxxi Microengenho. 

Of 800 M- 101/85 



CP-200. CP-300. CP-500. 
S-700. TK82-C. TK85. D-8000. 
D-8001 . Maxx. AP II PC 1211 



TK83. TK85. CP-200. CP-300. 

CP-500. AP ll JR Sysdata. 
Maxxi. Microengenho. equips 
Dismac. Digitus. Sharp 



Impressoras grav cassete 
modems. unid disquete 
monitores. joystick, 
interfaces teciados 



impressoras grav cassete 
modems umd disquete 
monitores. joystick 
piotadoras interfaces 
teciados 



impressoras modems, umo 
disquete . momtores 
piotadoras interfaces 
teciados 



Impressoras grav cassete 
modems umd disquete 
monitores tv comum 
joystick, piotadoras. 
interfaces 



Impressoras. grav cassete 
modems umd disquete. 
monitores. tv comum 
joystick, interfaces 



Impressoras. grftv cassete 
modems, umd disquete 
monitores. tv comum 
joystick interfaces 
teciados 



Fitas cassete disquetes 
papei/fita p / impressora. 
cxs p/ disquetes/ fitas 
arquivos. moveis. 
tudo p / CPD 



Disquetes papei/fita p/ NaciooM # 
impressora produtos de estrangeiros 
limpeza cxs p/ disquetes/ 
fitas. moveis 




Sim. so nacional 



Sim. nacional e 
estrangeiro 
(Monk LHM 
Microstan 



Disquetes papei/fita 
p / impressora 



Fitas cassete disquetes 
papei/fita p / impressora 
cxs p/ disquetes/ 
fitas. arquivos. moveis 



Fitas cassete disquetes. 
papei/fita p / impressora 
cxs p/ disquetes/ 
fitas. arquivos. moveis 



Fitas cassete disquetes 
papei/fita p/ impressora. 

cxs p/ disquetes/ 
fitas. arquivos. moveis 




Nacionais e 
estrangeiros 



S*m. nacional e 
estrangeiro 
(Microstar) 



Sim. so nacional 
(Monk. LHM 
Codests. Microbyte. 
Microsoft e 
autonomos) 



Sim. nacional e 
estrangeiro 
(Compusys) 



Nacionais e 
estrangeiros 



Sim. nacional e 
estrangeiro 



Sim. vmcuiado a 
compra de equip 



Sim. vmcuiado a 
compra de equip 



Sim. qualquer tipo 



Sim. qualquer tipo 



Sim. qualquer tipo 



Sim. so nacional 
(Nasajon. Monk. 
Digitus. Microsoft. 
Sistron. Kitsis. 
LHM. Kristian) 



So Sim. so nacional 
nacionais (CAP. Monk. Bmah 
Polymax. Filcres) 




Sim, qualquer tipo 



Sim. qualquer tipo 



Sim. qualquer tipo 



Sim. qualquer tipo 



Sim, vmcuiado a 
compra de equip 




Sim vmcuiado a 
compra de equip 



Sim. qualquer tipo 



Sim vmcuiado a 
compra de equip 



Sim. qualquer tipo 



Sim. qualquer tipo 



Sim. qualquer tipo 













































































































































CURSOS 


ASSISTENCIA 

TECNICA* 


FORMA OE 
FINANCIAMENTO 


OUTROS PRODUTOS 


ENDEREQOS 


CAL. PROG. 


VIDEOGAMES 


BASIC e outros curso 
gratis na compra oe micro 


Nao mas tern convemo 
c/ firma Oe manutencao 
(Servcomp) 


F mane Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Acacia Comercio Exportacao e Importagao Ltda. 

Av Pauhsta. 2073. 2 ° and \i 216/217. Edif Horsa 1 — Sao Paulo — SP 


So oe BASIC, cursos 
p/ empresas 


Nao. mas encammha 
ao tabncante 


Fmanc propno 
ate 15 meses 
leasing 


HP-10C. HP-1 1C 
HP-12C. HP-15C. 
HP-41CV. TI-58. 
TI-59. TI-55II 


Odisaey 


A Cambial — Fade!# Feoli A Filhoa Ltda. . 

Rua Dr Flores. 348 — tel 26*3555 — Porto Alegre — RS 


BASIC e outros. cursos p / 
empresas curso gratis 
na compra Oe micro 


Sim. p/ quaiquer 
equip nacionai 


Leasing 


Nao 


Nao 


ALPHA — Sistemas a Procasaamantoa Ltda. 

Rua Gois Monteiro. 934. Bairro Sao Francisco — tei 252-2287 — Bento 
Gonsalves — RS 


Nao 


Sim. p/ produtos 
compraoos na loja 


Fmanc propno 
ate 10 meses 


Nao 


Atari/Polyvox 
Od issey 
Dactari 


Amo Decker S.A — Industrie a Comercio 
Matrix Rtia Dr Fiores. 116 — Porto Alegre — RS 
Filial Galena Golden Center — te 26-6321 — Canoas — RS 


So oe BASIC cursos 
p/ empresas 


Sim. p/ quaiquer 
equip nacionai 


Fmanc propno 
ate 3 meses. fmanc 
Banco/ Fmanceira 


Nao 


Odissey 


Bell do Brasil Representagoes. Comercio e Industrie Ltda. 

Av Joao Alves da Fonseca e Silva. 1 131 — tel 351-3236 — Contagem — 
MG 


So oe BASIC Curso gratis 
na compra oe micro 


Sim. p/ produtos 
compraoos na loja 




Nao 


Odissey 


Beny Feira Permanents de Microcomputadores Ltda. 

Rua Dommgos de Moraes. 407. Vila Manana — Sao Paulo — SP 


BASIC e outros. curios p/ 
empresas curso gratis 
na compra Oe micro 


Sim. p / produtos 
compraoos na loia 


F inane proprio 
ate 6 meses 
tmanc Banco/ 
Fmanceira. leasing 


Nao 


Dactari 


Bucker Informatics Comercio de Computadores Ltda. 

Av Reboupas 1458 - tel 852-2086 e 282-3115 — Sao Paulo — SP 


So oe BASIC cursos p/ 
empresas curso grans 
na compra oe micro 


Nao. mas encammha 
ao tabncante 


Fmanc propno 
ate 3 meses. fmanc 
Banco/ Fmanceira. 
leasing 


Nao 


Nao 


Byte Shop 

Rua Antonio de Albuquerque. 271. Savassi — Belo Horizonte — MG 


BASIC e outros cursos 
p / empresas 


Sim. p / produtos 
compraoos na loja 


Fmanc Banco/ 
Fmanceira. leasing 






CAP — Centro de Assessors em Processamento de Dados Ltda. 

Av Costa e Silva. 680 Betan.a— tel 237-1 793 e 1033 — Manaus — AM 


So oe BASIC cursos p> 
empresas curso gratis 
na compra Oe micro 


Sim. p/ produtos 
compraoos na lo^a 


Fmanc propno 
ate 24 meses fmanc 
Banco/ Fmanceira. 
leasing consorcio 


Lmha Hewlett 
Packard. Texas 
Instruments 


Nao 


Castro Comercio de Computadores e Maquinas Ltda. 

Matrix Rua Vidal Ramos. 30 — tei 23-0491 . 22-6933 e 22-6757 — Fiona- 
nopoiis — SC 

Filial Av Centenano. 3673/9 — tel 33-1436 — Criciuma — SC 


BASIC e outros. cursos p' 
empresas curso gratis 
na compra Oe micro 


Nao mas tern convemo c/ 
tirma oe manutencao 
(MS Eietromcai 


Fmanc propno 
fmanc. Banco/ 
Fmanceira. leasing 


Lmha Hewlett 
Packard 


Dactari 


Chip Shop Computadores 

Rua Ofena. 248 Jardim Pauiistano — tei 211-4261 — Sao Pauio — SP 


So oe BASIC cursos 
p / empresas 


Sim. p/ produtos 
compraoos na loja 


Fmanc propno 
ate 5 vezes 


Lmha Hewlett 
Packard Texas 
Instruments. 
Sharp 


Nao 


Comercial Sogemec Maquinas p/Escritorio Ltda. 

Rua Prudente de Moraes. 679 — tei 34-2100 — Piracicaba — SP 


BAS'C e outros 
cursos p/ empresas 


Sim. p/ produtos 
compraoos na loja 


Fmanc Banco/ 
Fmanceira. leasing 
consorcio 


Nao 


Nao 


Comicro Comercio e Manutencao de Microcomputadores Ltda. 

Matrix Ai Presioente Taunay 691 — tei 224-5616 — Curitiba — PR 
Fihais Rua Padre Canos. 143. 1 ano si 5— tei 33-7520 — Jomvilie — 
SC/Edit Sul Brasiieiro 6 c and si 602 — tei 23-0065— Londrma— PR 


BASIC e outros. cursos 
p/ empresas 


Sim. p/ equips Digitus 
outras marcas sao 
encammhaoas ao 
tabncante 


Fmanc propno 
ate 4 meses fmanc 
Banco/Fmanceira 
teasing 


Nao 


Nao 


Compeei — Computadores. Equipamentos Eietromcox e Servigos Ltda 

SCLN 102 bi A si 120 — tei 226-9201 — Brasilia — DF 


BASIC e outros cursos 
p / empresas curso gratis 
na compra oe micro 


Sim. p/ produtos 
compraoos na > 0 |a 


Fmanc propno 
ate 4 vezes, fmanc 
Banco/Fmanceira 
(easing consorcio 


Nao 


Nao 


Compubel Computadores. Sistemas e Suprimentos Ltda. 

Tv Qumtmo Bocaiuva. 1779 — tei 223-6319 — Beiem — PA 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra oe micro 


Sim p/ equips 
nacionais e estrangeiros 


Fine Banco 
Fmanceira leasing 
consorcio 


Nao 


Nao 


Compucity — Comercio e Representagoes Ltda. 

Rua Tome oe Souza 882 — tei 226-6336 — Beio Horizonte — MG 


BASIC e outros cursos 
p/ empresas curso gratis 
na compra oe micro 


Sim. p/ produtos 
compraoos na ioja 


Fmanc Banco/ 
Fmanceira. ieasmg 


Nao 


Nao 


Compumidia — Produtos para Computagao Ltda 

Av Cnstovao Colombo. 1370. cj 301 — tei 22-5288 e 22-4859 — Porto 
Aiegre — RS 


So Oe BASIC cursos 
p/ empresas 


Sim. p/ produtos 
compraoos na loja 


Fmanc propno 
ate 4 meses tmanc 
Banco/Fmanceira. 
leasing consorcio 


TI-59 


Nao 


Compushow Computadores Ltda 

SCRN 708/709. bi E. Ij. 10 — tei 273-2128 — Brasilia — DF 


So Oe BASIC, cursos 
p/ empresas curso gratis 
na compra Oe micro 


Sim. p/ produtos 
compraoos na loja 


f-manc proprio. 
tmanc Banco/ 
Fmanceira. leasing 
consorcio 


WN-100 


Dactari 

Odissey 


Compusys Computadores e Sistemas Ltda. 

Matrix Av 9 de julho. 826. s/lj. — tei 635-1195— Ribeirao Preto — SP 
Filial Av Cei Ferreira Leite 1540. i| 68. Ribeirao Shopping — te» 634-3135 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra Oe micro 


Sim. p/ produtos 
compraoos na loja 


Fmanc propno. 
fmanc Banco/ 
Fmanceira. leasing 


Lmha Sharp 


Atari/ Poly vox. 
Odissey. 
Dynavision 


Compute Sistemas e Computadores Ltda. 

Rua Estados Unidos. 2141. Jardim Pauhsta — tei 231-1 173 e 231-1 197 — 
Sao Pauio — SP 
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LOJA 


ATIVIDADES 


MICROS 


COMPUTER HOUSE 

(SP) 


Especial izada 
em micros 


TK82-C. TK83, TK85. 
CP-200. CP-300. CP-500 


COMPUTERLAND 

(SP. RJ) 


Especializada 
em micros 


Equips Microdigilal. Umtron. 
Polymax. Dactron. Dismac. 
Hewlett Packard. Sysdata. 
Digitus 


COMPUTRONIC 

(RJ) 


Software/system 

house 


Color 64 APPLY 300 


CONSULT ORIA E 
SIS T EM AS 

(OF) 


Software/system 

house 


Naja. JR Sysdata. APPLY 300 
DV-400. DV-600. DV-2000. Ol 800 


CPM 

(SP) 


Software/ system 
house 


Maxxi. AP II. JR Sysdata. 
Microengenho. CP-300. CP-500. 
Naja. TK83. TK65. DGT-100. 
DGT-101; MG -8065 


DATA SOLUTION 

(SP) 


Especializada 
em micros 


CP-200, CP-300. CP-500 
Maxxi. TK85 Elppa. AP II 


DIDADOS 

(MG) 


Software/system 

house 


TK83. TK86. DGT-100. 
JR Sysdata 


DISCOL 

(PA) 


Especializada 
em micros 


TK82-C. TK83. TK85. CP-200. 
CP-300. CP-500. Maxxi 


ELDORADO 

(RJ) 


Especializada 
em micros 


CP-200. CP-300. CP-500. 
Maxxi. DGT-100; TK82-C. 
TK83. TK85 


ENSICOM 

<6P) 


Software/ system 
house 


TK83. TK86, JR Sysdata. 
Naja. Microengenho 


ENTEC 

(SC) 


Especializada 
em micros 


CP-200. CP-300. CP-500. 
JR Sysdata. equips Polymax. 
Microdigital. Digitus 


ERKLA 

(SP) 


Software/ system 
house 


TK85. AP II 


EXATRON 

(SP) 


Software/ system 
house 


TK83. TK85. CP-200. CP-300. 
CP-500. Maxxi. AP II 


FOTOLEO 

(SP) 


Especial izada 
em micros 


CP-200. CP-300. CP-500. 
Maxxi. AP II. TK82-C. TK83. 
TK86. JR Sysdata. ED-281. 
ED-311. ED-381 PC 1211 


FOT OPTICA 

(SP) 


Foto. aom. micros 


HP-85A, TK83. TK06. CP-300. 
CP-500. Apple II Plus 
Microengenho. Maxxi 


FRISSON 

(SP) 


Som. micros 


AP II. Microengenho. equips 
Digitus. Sysdata. Polymax. 
Microdigital. Prologica. 
Hewlett Packard 


MFORMAT1CA 

(MG) 


Software/system 

house 


Naja. Ol 800 


MFORMATIOUE 

(RS) 


Sofware/system 

house 


Microengenho. Alfa 3000. 
Alfa 3003, Alfa 2064. DGT-100, 
SID 3000 ED-281 CP-200. 

CP-500. S-700; TK82-C. 
TK83. TK85, D-8000. D-6001. 
D-8002. D-8100, D-8101. D-8102. 
D-8103 equips Sharp 



PERIFERICOS 



SUPRIMENTOS 



REVISTAS 

UVROS 



SOFTWARE 



VENOE? 



DESENVOLVE? 



Impressoras. grav cassete. 
modems, unid disquete 
mom tores, tv comum. 
joystick, interlaces, 
tec i ados 



Fitas cassete. disquetes. 
calibrador e modulador de 
smal (CMS/2X) 



Nacionais e 
estrangeiros 



Sim. so nacional 
(Abaco. Polisoft. 
Microsoft) 



Sim. qualquer tipo 



Impressoras. modems, umd 
disquete. momtores; tv 
comum. joystick, plotadoras. 
paddles, placas de expentao. 
piaca videx p/ impressora. 
placa CP/M. cartao p/ 
Pall/M puro. interfaces, 
teclados 



Fitas cassete. disquetes. 
papel/tita p/ impressora. 
produtos de limpeza, 
cxs. p / disquetes/ litas, 
arquivos. moveis 



Nacionais e 
I estrangeiros 



Sim. so nacional 
(LHM. 

Computerworld. 
Potenciai Software. 
CCS. Approach. 
Monk. Microsoft) 



Sim, qualquer tipo 



Disquetes. papei 
p/ impressora 



Nacionais e 
MtaMQtfcOi 



Nao 



Sim. qualquer tipo 



Impressoras. grav cassete 
unid disquete. momtores. 
joystick, interlaces 



Fitas cassete. disquetes. 
papel/fita p/ impressora. 
cxs. p/ disquetes/ 
fitas. arquivos moveis 



Nacionais e 

MMntataoa 



Sim. nacional e 
estrangeiro 



Sim. qualquer tipo 



Impressoras. grav cassete 
modems, umd. disquete. 
momtores. tv comum. 
placas de expansao. 
interlaces teclados 



Fitas cassete. disquetes. 
papel/fita p/ impressora. 
produtos de limpeza. 
cxs p/ disquetes/ litas, 
arquivos. moveis 



Nacionais e 
lestranoeiros 



Sim. so nacional 
(PS!. Bmah. Ramo. 
Softec. Sispro. 
DB Micro. 
Microstar. 
Microsoft) 



Sim. qualquer tipo 



Impressoras. momtores. 
joystick, plotadoras. 
interfaces 



Disquetes. papel/tita 
p/ impressora. cxs p/ 
disquetes/ fitas. moveis 



Nacionais e 
estrangeiros 



Sim. so nacional 
(Monk. LHM. 
Microsoft) 



Sim. qualquer tipo— 



Grav cassete .umd disquete 
momtores. joystick 



Disquetes. papei/ 
p/ impressora 



Nao 



Nao 



Sim. qualquer tipo 



Impressoras. grav cassete 
modems, umd disquete 
momtores. tv comum. 
joystick, plotadoras. 
interlaces 



Fitas cassete. disquetes. 
papel/fita p/ impressora. 
produtos de limpeza. 
cxs. p / disquetes/ litas, 
arquivos. moveis 



Nacionais e 
estrangeiros! 



S«m. so nacional 
(Monk. Microsoft. 
CCS) 



Nao 



Impressoras. grav cassete 
umd disquete. momtores. 
joystick, interfaces 



Fitas cassete. disquete*. I Nacionais e 
papel/tita p/ impressora. estrangeiros! 
produtos de limpeza. 
cxs. p/ disquetes/ litas, 
arquivos. moveis. etiquetas 
pastas p/ formularios 
modulador de RF. expansaoj 
de memona. placas diversas 



Sim. nacional e 
estrangeiro 
(Kitsis. Monk. 
Microsoft) 



Sim. qualquer tipo 



a. umd 
joystick, interlaces 



Fitas caaeete. disquetes. 
papel/fita p/ impressora. 
cxs. p / disquetes/ 
fitas. arquivos. moveis 



So 

nacionais 



Sim. so nacional 
(Microsoft. 
Microdigital. 
Prologica. 
Sysdata) 



Sim. qualquer tipo 



Impressoras. grav cassete. 
umd disquete. momtores. 
plotadoras. interfaces, 
teclados. controiadores 
numencos 



Fitas 

papel/lita p/ impressora. 
cxs p/ disquetes/ fitas 



So 

nacionais 



Sim. so nacional 
(Fabr propria. 
Polymax. Monk. 
LHM) 



Sim. qualquer tipo 



Impressoras. umd. disquete 



Disquetes. papel/fita 

p/i 



Sim. so nacional 
(Worm Software) 



Sim. qualquer tipo 



grav 

umd. disquete. momtores. 
interfaces 



Fitas 

papel/fita p / 11 

cxs p/ disquetes/ 
fitas. arquivos 



So 

nacionais 



Sim. so nacional 
(Microsoft. 
Softscience) 



Sim. qualquer tipo 



Impressoras. grav cassete. 
umd disquete. momtores. 
tv comum. joystick 



Fitas i 

papel/fita p/ impressora. 
produtos de limpeza. 
cxs. p / disquetes/ fitas. 



Nacionais e 



Sen. so nacional 
(Fabric, propria) 



Sim. qualquer tipo 



umdr disquete. momtores. 
tv comum. joystick 



Fitas cassete. disquetes. 
cxs. p / disquetes/ fitas. 
arquivos 



Nacionais e 



Sim. so nacional 
(Microsoft. Micro s. 
Monk. Kristian) 



Nao 



Impressoras. grav cassete 
modems, umd. disquete. 
momtores. tv comum. 
joystick, interfaces 



Fitas 

papel/fita p/ impressora. 
produtos de limpeza. 
arquivos. moveis. cxs 
p/ disquetes/ fitas 



SO 

nacionais 



Sim. so nacional 
(Monk. Microarte) 



Sim. vmculado a 
compra de equip 



Impressoras. umd disquete 



Disquetes 



Nao 



Sim. so nacional 
(Fabric propria. 
Ststron) 



Sim. qualquer tipo 



Impressoras. grav. cassete 
umd disquete.' momtores. 
joystick, interfaces 



Fitas < 
papei p/ impressora 



Nacionais e 

■MpkH 



Sim. so nacional 
(oonmax. rtyperson. 
Approach) 



Sim, vmculado a 
compra de equip 
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CURSOS 


ASSlSTENCIA 

TECNICA 


FORMA DE 


OUTROS PRODUTOS 


ENDEREQpS 


FINANCIAMENTO 


CAL. PROG. 


VIDEOGAME 


BASIC e outros. curso 
gratis na compra oe micro 


Sim. p / deter mmados 
equips 


Financ propno 
ate 6 meses. tmanc 
Banco/ Fmanceira. 
leasing 


Nao 


Nao 


Computer House 

Matrix Av Andrade Neves. 1254 — Campmas — SP 

Filial Av Juscelmo Kubitschek. 28 — tel 252-5855 e 852-7739 


So de BASIC cursos 
p empresas curso gratis 
rva compra 06 micro 


Sim. p/ proautos 
comprados na loja 


• Financ propno 
ate 4 ve/e s Financ 
Banco/Fmanceira. 
leasing, consorcio 


Lmha Dismac. 
Hewlett Packard 


Dactari. 
Hobbygame 
Od issey 


Computerland 

Matrix. Av Angelica. 1996 - tel 231-3277 - Sao Pauio — SP 
Fmais Av oos imares. 134 — tel 531-4498— Sao Pauio — SP/Pra.a oe 
Botatogo 288. l|. 114. Edit Argentina — tel 551-8942 — Rio oe Janeiro 
— Rj/Av Barao de lapura. 917 — tel 32-4330 e 31 -8498- Campmas— SP 
Lojas tranqueadas em Sao Pauio Pro Som. Tape Som e Chip Shop 


BASIC • outros. cursos 
p/ empresas 


Sim. pi equips 
nacionais e estrangeiros 


Financ Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Computronic —Maser Materials e Servicos de Proces oe Dados 

Estr da Cacuia. 231 . si 312. liha do Governador — Rio de Janeiro — Rj 


BASIC e outros. cursos 
p / empresas. curso gratis 
na compra de micro 


Sim. p / quaiquer 
equip nacionai 


Financ Banco/ 
Fmanceira 


Nao 


Nao 


Consuitona e Sistemas Ltda. 

Centro Comerciai Cruzeiro. s/l| 35 — tel 233-2310 e 567-3425 — Brasilia 
— DF (Cx. Postal 11-1285) 


BASIC e outros cursos 
p/ empresas. curso gratis 
na compra oe micro 


Nao. mas tern convemo 
c / firma Oe manutengao 
(Servcomp. Dataroad. MS) 


Financ propno 
ate 3 meses tmanc. 
Banco/ Fmanceira. 
Leasing, conso'rcio 


Nao 


Nao 


CPM — Central Panamencana de Micro Informatics Ltoa 

Pea Clovis Beviiacqua. 121.2 ° and - tel 32-7752. 34-3057 e 32-9946 — 
Sao Pauio — SP 


BASIC e outros. cursos 
p j empresas curso gratis 
rva compra Oe micro 


Nao. mas tern convemo 
c / tirma Oe manutencao 
(Servcomp) 


Financ. Banco/ 
Fmanceira. leasing, 
consorcio 


Nao 


— 


Data Solution 

Av Euzebio Matoso. 654 — tel 813-3355 — Sao Pauio — SP 


So oe BASIC cursos 
p / empresas 


Nao. mas encammha 
ao tabricante 


Financ propno 
ate 3 meses 


Nao 


Nao 


Didados — Informatics e Admimstragao Ltda. 

Rua Mmas Gerais, si. 602 — tel 221-2004 — Divmopoiis — MG 


Nao 


Sim. p / proautos 
comprados na io»a 


Financ propno 
ate 4 meses. tmanc. 
Banco/ Fmanceira. 
leasing 


Nao 


Odissey 


Dtscol — TelecomumcaQOes e Informatics Ltda. 

Rua 28 de Setembro. 746 — tel 222-512 2 e 224-1751 — Beiem — PA 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra de micro 


Sim pi equips nacionais e 
estrangeiros 


Fmanc propno 
ate 3 vezes tmanc. 
Banco/ Fmanceira. 
leasing 


Nao 


Nao 


Eldorado Computadores e Sistemas Ltda 

Rua Visconde de Piraja. 351. ijs 213/214 — tel 227-0791 — Rio de 
Janeiro Rj 


BASIC e outros. cursos 
p/ empresas 


Nao. mas encammha 
ao tabricante 


Fmanc propno 
ate 3 meses. tmanc 
Banco/Fmanceira. 
leasing 


Nao 


Nao 


Ensicom Engenharia de Sistemas e Computadores Ltda. 

Rua Marques oo He rva i. 409. l*ano .si 15 — tel 33-2944 — Taubate — SP 


So Oe BASIC cursos 
pi empresas curso gratis 
na compra Oe micro 


Sim. pi micros protissionais. 
pessoais e equips Oe 
controle industrial 


Fmanc Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Entec Represent »cao Ltda. 

Rua Lauro Muller. 700 — Itaiai — SC 


BASIC e outros. cursos 
p / empresas 


Nao. mas encammha 
ao tabricante 


Fmanc. Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Erfcla Cursos. KrU, Laboratonos de Eletromca 

Matrix Rua Dr Veiga Filho. 522 — tel 67-7793 — Higienopous — SP 
Filial Av Pacaembu 1261 - tel 826-1499. 67-8339 e 826-4464 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra Oe micro 


Nao. mas tern convemo 
c/ tirma Oe manutencao 
(Servcomp) 


Fmanc. propno 
ate 3 meses. tmanc 
Banco/Fmanceira. 
leasing 


Nao 


Nao 


Exatron Informatics 

Alameda dos Arapanes 841 — tel 542-1917 — Sao Pauio — SP 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra Oe micro 


Sim. pi produtos 
comprados na loja 


Fmanc propno 
ate 24 meses. tmanc 
Banco/Fmanceira. 
leasing 


Nao 


Dactari 


Fotoleo Comer cio e Industrie Ltda. 

Av Sao Joao. 25. Centro — Sao Pauio — SP 


Cursos p/ empresas curso 
gratis na compra oe micro 


Nao. mas encammha 
ao tabricante 


Fmanc propno 
ate 10 meses. tmanc 
Banco/Fmanceira. 
leasing 


Lmha Hewlett 
Packard. Texas 
Instruments. 
Sharp 


Odissey. 
Atari/ Polyvox. 
Dactari 


Fotoptica Computadores e Calculadoras 
Matrix Al. Jurua. 434 — tel 421-5211 — Baruen (Alphaviile) — SP (Centro 
Administrative) 

Filial: Av Reboueas 2315 


Curso gratis na 
compra oe micro 


Sim. pi produtos 
comprados na loja 


Financ Banco/ 
Fmanceira. leasing, 
consorcio 


Lmha Hewlett 
Packard 


Odissey. 
Dactari. Atari/ 
Polyvox 


Frisson Equipamentos de Som Ltda. 

Rua Bernardino de Campos. 345 — tel 412-3428 e 449-6212 — Santo 
Andre - SP 


BASIC e outros cursos 
pi empresas 


Nao. mas tern convemo 
c / tirma de manutencao 
(Distec) 


Fmanc propno 
ate 4 meses. tmanc 
Banco/Fmanceira. 
leasing 


Nao 


Nao 


Informatics Assessorta e Processamento de Dados Ltda 

Av Antonio Olimpio de Morais. 290/308 — DivinopoltS — MG 


BASIC e outros. cursos 
p / empresas curso gratis 
na compra oe micro 


Sim. pi produtos 
comprados na loja 


Fmanc Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Intormatique — Onix Comercio e Servicos de Equip. Eletromcos Ltda. 

Av Independence 383. 1] 114/115 — tel 21-4189— Porto Alegre — RS 
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LOJA 


ATIVIDADES 


MICROS 


PERIFERICOS 


SUPRIMENTOS 


REVISTAS 

LiVROS 


SOFTWARE 


VENDEV 


DESENVOLVE? 


INFORMAX 

(SP) 


Especializada 
em micros 


CP-200. CP-300. CP-500, 
equips Unitroo. Microdigital 


Impressoras. grav cassete 
modems, umd. disquete. 
mom tores, tv comum. 
joystick, plotadoras. 
interfaces 


Fitas cassete disquetes. 
papei/fita p/ impressora. 
cxs p/ disquetes/ 
fitas. arquivos. moveis 


Nao 


Sim nacional 
e estrange) ro 


Sim. qualquer tipo 


IPANEMA MICRO 

(RJ) 


Especializada 
em micros 


TK82-C. TK83. TK85. DGT-100. 
CP-500, AP II. Microengenho 


Impressoras. grav cassete. 
modems, tv comum. joystick, 
interfaces, expansao p/ tv. 
smtetizador de voz 
(Digitus) 


Fitas cassete disquetes. 
papel p/ impressora. cxs 
p/ disquetes/ fitas 


Nacionais e 
estrangeiros 


Sim. sd nacional 
(Microsoft 
Mtcrotdeia) 


Sim. qualquer tipo 


KALHAU 

(RJ) 


Especializada 
em micros 


DGT-100. DGT-101 . TK83. TK85 
APPLY 300. equips Schumec 


impressoras. grav cassete. 
modems, umd disquete 
mom to res. tv comum. 
joystick, interfaces 


Fitas cassete disquetes. 
papei/fita p/ impressora. 
produtos de limpeza. 
cxs. p/ disquetes/ fitas 
arquivos, moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Nasajon. Digitus. 
Microsoft) 


Sim. qualquer tipo 


KEMITRON 

(MG) 


Especializada 
em micros 


Naja. TK83. TK85. CP-300. 
CP-500. JR Sysdata 


Impressoras. grav cassete 
modems, umd disquete 
momtores. tv comum. 
joystick, plotadoras 
interfaces, teciados 


Fitas cassete. disquetes. 
papei/fita p/ impressora. 
produtos de limpeza 
cxs. p/ disquetes/fitas. 
arquivos 


So 

nacionais 


Sim. nacional e 
estrangeiro (LHM. 
Sistron. Monk) 


Nao 


KOMPUTER HAUS 

(PR) 


Sofware/ system 
house, eletromca. 

micros 


Microengenho. DACTRON-E. 
CP-200. CP-300. CP-500 


Impressoras grav cassete 
modems, umd disquete. 
momtores. joystick 


Fitas cassete. disquetes 


So 

nacionais 


Sim. so nacional 
(Potenciai 
Software) 


Sim. qualquer tipo 


LHM 

(RJ. RS) 


Software/ system 
house (matnz). 
micros 


Raja. Maxxi. AP II. mttnz: 
TK85. Mil: DGT-100 


impressoras. grav cassete. 
umd disquete momtores. 
interfaces, teciados. 
mttriz: tv comum. 
tihti: joystick, piacas 
expansao 16 K. 48 K e 
128 K. ventiladores 
p/ fonte de CPU 


Fitas cassete disquetes 
fitas p/ impressora. cxs 
p/ disquetes/fitas. 
moveis. mttriz arquivos. 
IiIimI: papel p/ impressora 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Fabric propria) 


Sim. qualquer tipo 


LIDADOS 

(SP) 


Especializada 
em micros 


TK82-C. TK85. CP-200. CP-300. 
CP-500. S-600. S-700. AP II 


impressoras. grav cassete 
umd disquete. joystick 


Fitas cassete disquetes. 
papei/fita p/ impressora. 
cxs. p/ disquetes/fitas 


Nacionais e 
estrangeiros 


Sim. so nacional 


Sim. vmculado a 
compra de equip 


LOGICA 

(BA) 


Especializada 
em micros 


TK82-C. TK83. TK85. CP-200. 
CP-300. CP-500. S-600. 
S-700 DGT-100. DGT-101; 
Microengenho. equips Scopus 


Impressoras. grav cassete: 
modems, umd disquete. 
momtores. joystick, 
interfaces 


Fitas cassete. disquetes. 
papei/fita p/ impressora 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Monk. Microarte. 
Microsoft. Kristian. 
Prologica. Digitus. 
EAG-Engenharia 
de Sistemas) 


Sim. qualquer tipo 


MAESTRO 

(RJ) 


Som. micros 


TK85. DGT-100 


Grav cassete umd 
disquete. momtores 
joystick, interfaces 


Fitas cassete. disquetes 


Nao 


Sim. so nacional 
(Digitus. 
Microdigital) 


Sim qualquer tipo 


MEMOCARDS 

(SP) 


Especializada 
em micros 


TK82-C. TK85. CP-200. CP-300 
CP-500. NE-Z8000. MT 300. 
DGT-100 Maxxi. 

PC 1211 RP. PC 1211 R 


Impressoras. grav cassete 
modems, umd. disquete. 
momtores tv comum. 
joystick, plotadoras 
interfaces 


Fitas cassete. disquetes. 
papei/fita p/ impressora 
cxs. p/ disquetes/fitas 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Microdigital. 
Prologica. Micron. 
SoftKnstian. 
Monk. Nasajon. 
LHM. Softscience) 


Sim. qualquer tipo 


METALOATA 

(RS) 


Software/ system 
house 


TK82-C. TK85. CP-200. CP-500. 

S-700. D-8000. Alfa 3003. 
Alfa 2064. Maxxi. POLY 201 DP. 
Microengenho. CD-6809 


Impressoras grav cassete 
modems, umd disquete. 
momtores. tv comum. 
joystick, interfaces 
teciados 


Fitas cassete disquetes. 
papei/fita p/ impressora. 
cxs. p/ disquetes/fitas. 
moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Metaldata. Monk) 


Sim. qualquer tipo 


MICRO HOUSE 

(RJ) 


Especializada 
em micros 


CP-200. CP-300. CP-500. 
AP II; Maxxi. TK85 


Impressoras. grav cassete 
umd. disquete. momtores 


Fitas cassete. disquetes. 
papel p/ impressora. 
moveis 


So 

nacionais 


Sim. so nacional 
(Microideia. 
Monk. Microsoft) 


Sim. qualquer tipo 


MICROINFORMATICA 

(RJ) 


Especializada 
em micros 


CP-200. CP-300. CP-500. S-600. 
TK83. TK85. DGT-100 
JR Sysdata. Naja equips 
Umtron. Appletromc 


Impressoras. grav cassete 
modems, umd disquete 
momtores: tv comum 
joystick 


Fitas cassete disquetes 
papel p/ impressora 
moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 


Sim. qualquer- tipo 


MICRO MAXI 

(RJ) 


Software/ system 
house 


CP-500. S-600 S-700. 
TK82-C. TK85 


impressoras 




Nao 


Sim. so naconai 


Sim qualquer tipo 


MICROM 

(SP) 


Software/system 

house 


TK85. JR Sysdata ED-281 


Grav cassete joystick 


Fitas cassete disquetes 
papei/fita p/ impressora 
cxs p/ disquetes/ fitas 
arquivos. moveis 


So 

nacionais 


Sim. so nacional 
(Edisa. Cobra. 
SO. Prologica) 


Sim. qualquer tipo 


MtCROMEGA 

(RS) 


Software/ system 
house 


TK82-C. TK85 CP-200. CP-300. 
CP-500. DGT-100. Maxxi. 
Microengenho. JR Sysdata. 
PC 1211 R. PC 1211 RP 


Impressoras. grav cassete 
umd disquete. momtores. 
tv comum. joystick, 
interfaces 


Disquetes. papei/fita 
p/ impressora 


So 

nacionais 


Sim. nacional 

e estrangeiro 


Sim. qualquer tipo 


MICRONEWS 

(RJ) 


Especializada 
em micros 


TK83. TK85. CP-200. CP-300. 
CP-500. DGT-100 


Impressoras. umd disquete. 
momtores. joystick 


Fitas cassete disquetesL 
papei/fita p/ impressora. 
produtos oe limpeza. 
cxs. p/ disquetes/fitas 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Monk. Nasajon) 


Nao 


MICROSHOW 

(RJ) 


Especializada 
em micros 


CP-200. CP-300. CP-500. 
S-600. S-700. HP-85 


Impressoras 


Disquetes. papei/fita 
p/ impresscra 


Nao 


Sim. so nacional 
(Digidata) 


Sim. qualquer tipo 
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CURSOS 


ASSISTENCIA 

TECNICA 


FORMA DE 
FINANCIAMENTO 


OUTROS PRODUTOS 


ENDEREQOS 


CAL. PROG. 


VIDEOGAMES 


BASIC • outros. cur sos 
p< empresas 


Nao. mas tern convenio 
com a Computec 


Fmanc Banco/ 
Fmanceira. leasing, 
consorcio 


Nao 


Nao 


Informal 

Av Bngadeiro Faria Lima. 1857 — tel 814-0682 — Sao Pauio — SP 


So oe BASIC 


Nao mas encammha 
ao tabricante 


Fmanc Banco/ 
Fmanceira 


Nao 


Top-Game 


Ipanema Micro — Computer-shop Eletronica Ltda. 

Rua Visconde de Piraja. 540. ij. 310 — tei 259-1516 e 274-5594 — Rio de 
Janeiro — RJ 


BASIC • Outros cursos 
p/ empresas 


Nao mas encammha 
ao tabricante 


Fmanc propno 
teasing 


Nao 


Nao 


Kalhau Engenharia Ltda. 

Pga Tiradentes. 10. si 402. Centro — tei 252-275 2 — Rio oe Janeiro — Rj 


Nao 


Sim. p/ produtos 
comprados na loia 


Fmanc propno 
ate 5 meses tmanc 
Banco/ Fmanceira. 
leasing 


Nao 


Nao 


Kemitron Ltda. 

Av Contorno. 6048. Sdvassi — tei 225-0644 — Beio Horizonte — MG 


BASIC e outros cursos 
py empresas 


Sim. p/ produtos 
comprados na iota 


Financ propno 
tmanc Banco/ 
Fmanceira 




Odissey. 

Atari/Polyvox 


Komputer Video Hauss — Com. de Microcomputadores e 
jogoa Eletronicos Ltda. 

Av Higienopohs. 925. IjTV Shopping Via Per Tutti — tei 23-5061 — 
Londrma — PR 


Man a BASIC e outros 
tumi so de BASIC 
cursos p empresas 
curso gratis na 
compra de micro 


Sim. pj produtos 
comprados na loja 


Financ propno 
ate 3 meses tmanc 
Banco/ Fmanceira 
leasing 


Nao 


Matnz 

Odyssey 

Dactan 


LHM Comercio a Rapresentacao Ltda. 

Matnz Av Franklin Roosevelt. 23. gr 1203/4/5— tei 220-7979— Rio oe 
Janeiro — RJ 

Final Compute he — Av independence. 599 — tei 26-6466 — Porto 
Alegre — RS 


So oe BASIC cursos 
p/ empresas. curso gratis 
na compra de micro 


Sim. p/ produtos 
comprados na loja 


Financ Banco/ 
Fmanceira. consorcio 


Nao 


Nao 


L .dados Ser vicos a Comercio de Computadores Ltda. 

Rua Sete de Setembro. 876 — tei 41-3513 — Limeira — SP 


BASIC e outros cursos 
p. empresas curso gratis 
na compra de micro 


Sim. py equips nacionais 
e estrangeiros 


Financ propno 
ate 6 meses leasing 


Nao 


Nao 


Logica — Computadores a Si stem as Ltda. 

Ai Antunes. 01. ij 02. Barra Avemoa — tei 235-4184 — Salvador — BA 


So oe BASIC 


Sim. p/ equips nacionais 
e estrangeiros 


Fmanc propno 
ate 6 meses tmanc 
Banco/Fmanceira. 
leasing 


Nao 


Atary/ Poiyvox 


Maestro Equipamentos de Som Ltda. 

Matnz Av Pasteur. 184. ij. J — tei 295-8194 e 542-3849— Riooe Janeiro 
- Rj 

Fmai Tv Ouvidor. 37. 2 0 and — tei 221-5040 — Rio de Janeiro — Ftj 


BASIC e outros. cursos 
empresas curso gratis 
na compra de micro 


Sim. py equips nacionais 
e estrangeiros 


Financ propno 
tmanc Banco/ 
Fmanceira. leasing 
consorcio 


Nao 


Nao 


Memocards Materials Didaticos Ltda. 

Rua Amador Bueno. 855 — Ribeirao Preto — SP 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra de micro 


Nao. mas tern convenio 
c / tirma de manutenpao 
(Disco) 


Fmanc propno 
ate 5 vezes tmanc 
Banco/Fmanceira. 
leasing 


Nao 


Dynavision 


Metadata Engenharia a Processamento Ltda. 

Matnz Rua Alvaro Chaves. 154. cj 302— tei 22-3151 — Porto Aiegre — RS 
Filial Rua Qumtmo Bocaiuva. 27. Ij. 14 — tei 22-3151 — Porto Aiegre — RS 


BASIC e outros cursos 
P' empresas 


Nao. mas tern convenio 
C / tirma de manutengao 
(Sistema) 


Financ propno 
ate 3 meses tmanc 
Banco/Fmanceira. 
leasing 


Nao 


Nao 


Micro House Comercio e Representacoes Ltda 

Rua Visconde de Piraja. 547. si. 307. ipanema — tei 294-6246 — Rio oe 
Janeiro — RJ 


So de BASIC cursos 
p/ empresas 


Sim. p/ produtos 
comprados na loja 


Financ Banco/ 
Fmanceira 


Nao 


Nao 


Micromtormatica Computadores Pessoeis Ltda. 

Av Atauito de Paiva. 566. ij. 21 1 — tei 239-2798 — Rio oe Janeiro — Rj 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra de micro 


Nao. mas encammha 
ao tabricante 


Fmanc Banco/ 
Fmanceira. leasing 


Nao 

^ * 


Nao 


Micro Maxi Computadores a Sistemas Ltda. 

Matnz Pga Oliveira Boteiho. 154 — tel 54-1 135 e 54-1522 — Resenoe — 
RJ 

Filial Rua Cel Rocha Santos. 46 — tei 54-1644 e 54-2031 — Resenoe — 
RJ 


BASIC e outros. cursos 
p/ empresas curso grans 
na compra de micro 


Nao mas encammha 
ao tabricante 


Fmanc propno 
ate 4 meses fmanc 
Banco/Fmanceira. 
leasing 


Nao 


Nao 


Micron — Seno Comercio Represented Admmistreceo Ltda. 

Av Alberto Andaio. 3131. 1° and . si 2 — tei 32-0600 e 32-5887 — Sao 
Jose do Rio Preto — SP 


BASIC e outros. cursos 
p/ empresas 


Nao. mas tern convenio 
c/ tirma de manutengao 
(Mundiai — Radio 
Eletrica Ltda.) 


Fmanc Banco/ 
Fmanceira. leasing 


Nao 


Dynavision 


Micromega Computadores a Sistemas Ltda. 

Rua Julio de Castilhos. 441 . 1 0 and — tel 93-4721 — Novo Hamburgo — 
RS 


So Oe BASIC curso gratis 
na compra de micro 


Nao. mas encammha 
ao tabricante 


Financ Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Micronews Comercio a Services Ltda. 

Rua da Assembler. 10. 33 0 and . si 3317. Edit Centro Candido Mendes 
— tel 252-9420 — Rio de Janeiro — RJ 


BASIC e outros cursos 
p/ empresas cursos gratis 
na compra de micro 


Sim. p/ equips 
Protogica 


Financ propno 
ate 5 meses. fmanc 
Banco/Fmanceira. 
leasing, consorcio 


HP-41 CV. HP-97 A 


Nao 


Microshow Comercio de Computadores a Ser vicos Ltda. 

Matnz Rua Fiqueira Oe Meio. 425 1 ° and . Sao Cnstovao 

— tel 264-5797 — Rio de Janeiro — RJ 

Filial Rua Frolick. 31. 3 0 and . Sao Cnstovao — tel 234-4751 — Rio de 
Janeiro — RJ/Av Copacabana. ij B e C — tel 256-4181 — Rio de Janeiro 

— Rj/Campo de Sao Cnstovao. 87. 5 ° and — tel 228-8183 — Rio de* 
Janeiro — RJ 
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LOJA 


ATIVIDADES 


MICROS 


PERIFERICOS 


SUPRIMENTOS 


REVISTAS 

LlVROS 


SOFTWARE 


VENDE7 


DESENVOLVE? 


MICROStS 

(RS) 


Especiaiizada 
em micros 


Maxxi. TK83 TK85. DGT-100. 
JR Sysdata. equips Prologica. 
PC 1211 


Impressoras. modems, unid 
disquete. morn tores 
joystick, interfaces 


Fitas cassete disquetes. 
papel/fita p/ impressora. 
cxs p/ disquetes/ fuas 


Nacioni.is e 
estrangeiros 


Sim. so nacional 
(Codesis. Apiitec. 
Monk. Nasajon) 


Sim, qualquer tipo 


MICROTEC 

(RS) 


Especiaiizada 
em micros 


AP II. Maxxi. Microengenho. 
D-8000 D-8001 JR Sysdata 
Dactron Apple II Plus equips 
Digitus. Microdigital 


impressoras. unid disquete. 
momtores. tv comum. 
joystick, interlaces, 
teclados 


Fitas cassete. disquetes 
papel/fita p/ tmpressora. 
produtos de limpeza. 
cxs p/ disquetes/ fitas 


So 

nacionais 


Sim. so nacional 
(Microsoft. 
Computerworld. 
Monk. Potencial) 


Sim. qualquer tipo 


MIKRO INFORMATICA 

(MG) 


Software/ system 
house 


CP-200. CP-300. CP-500. 
TK83. TK85 


Impressoras. grav 
cassete. tv comum 


Nao 


Nao 


Sim. so nacional 
(Kitsis) 


Sim. qualquer tipo 


MINAS DIGITAL 

(MG) 


Especiaiizada 
em micros 


CP-200. CP-500. S-700. TK85 
DV-600. DV-2000. DGT-100 Naja 


Impressoras. grav cassete 
modems, unid disquete 
momtores. joystick, 
plotadoras. interfaces, 
teclados 


Fitas cassete disquetes. 
papel/fita p/ impressoras. 
cxs p/ disquetes/ fitas 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Monk. Micron. 

Microsoft, 
fabric propria) 


Sim. qualquer tipo 


OMNICOM 

(MG) 


Software/ system 
house 


Naja TK82-C. TK85 


Impressoras. grav cassete 
unid disquete momtores 


Nao 


Nao 


Sim. so nacional 


Sim. qualquer tipo 


PROOADOS 

(OF. GO) 


Software/ system 
house 


Todos 


Impressoras. grav cassete 
joystick, plotadoras. 
interfaces 


Fitas cassete. disquetes. 
papel/fita p / impressora. 
produtos de limpeza 


Nacionais e 
estrangeiros 


Sim. so nacional 


Sim. qualquer tipo 


PRODAMIC 

(MG. ES) 


Software/system 

house 


DGT-100 BR-1000 


Nao 


Disquetes 


Nao 


Sim. nacional e 
estrangeiro 
(Microsoft. 
Cromenko) 


Sim. qualquer tipo 


REGIS STUDIO 

(MG) 


Som. micros 


CP 200 CP 300 CP 500 
TK82-C. TK85 


Grav cassete. tv comum 


Disquetes 


Nao 


Sim, so nacional 
(Monk. Micro S) 


Nao 


RENAUX 

(SC) 


Loja oe 

departamentos 


TK83. TK85. CP-200. CP-300. 
CP-500. S-600 Maxx. 

PC 1211 RP 


Impressoras. grav cassete 
umd disquete. tv comum 


Fitas cassete disquetes.' 
papel/fita n/ impressora 


So 

nacionais 


Sim. so nacional 
(Monk. Suporte) 


Nao 


RIO MICRO 

(RJ) 


Especiaiizada 
em micros 


Equips Digitus. Microdigital 


Impressoras. grav cassete 
umd disquete. momtores 
tv comum. joystick. 

interfaces teclados 


Fitas cassete disquetes, 
papei p/ impressora cxs 
p/ disquetes/titas moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 


Sim. qualquer tipo 


RITZ 

(SP) 


Software/ system 
house 


CP-200. CP-300. CP-500. Maxx. 
TK82-C. TK85 PC 1211 RP 


Impressoras. grav cassete 
unid disquete. momtores 


Fitas cassete disquetes 


Nao 


Sim. so nacional 
(Monk. Codesis. 
fabric propria) 


Sim. qualquer tipo 


SHOP-COMPUTER 

(PR) 


Especiaiizada 
em micros 


TK82-C. TK85 JR Sysdata. 
CP-200. CP-300. CP-500. S-700 


Impressoras. grav cassete 
unid disquete. momtores, 
joystick 


Fitas cassete. disquetes 
papel/fita p/ impressora. 
cxs. p / disquetes/ 
fitas. arquivos. moveis 


So 

nacionais 


Sim. so nacional 
(Microsoft. Micro s. 
Micron) 


Sim. qualquer tipo 


SISCOMP 

(CE) 


Sottware/system 

house 


TK82-C. TK83. TK85. CP-200, 
CP-300 CP-500 S-700. DGT-100. 
DGT-101. JR Sysdata 


impressoras grav cassete 
unid disquete. momtores. 

tv comum. joystick 
plotadoras interlaces teclados 


Fitas cassete. disquetes 
papel/fita p/ impressora. 
cxs p/ disquetes/ 
fitas. moveis 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Monk) 


Sim. qualquer tipo 


SISDATA 

(BA) 


Especiaiizada 
em micros 


Equips Brascom. Digitus 


Impressoras. umd disquete 
momtores 


Disquetes. papel/fita 
p/ impressora. cxs. p/ 
disquetes- fitas 
moveis 




Sim. so nacional 
(Brascom. Digitus) 


Sim. vmculado a 
compra de equip 


SISTEMATIKA 

(RS) 


Especiaiizada 
em micros 


TK82-C TK85 CP-200. CP-300 
CP-500. DGT-100 AP II. 
CP-500. Maxx. POLY 105 DP 
POLY 201 DP POLY 301 WP 
JR Sysdata 


Impressoras umd disquete 
momtores. joystick 
interfaces teclados 


Fitas cassete disquetes. 
papel/fita p/ impressora 
produtos de limpeza 
cxs p/ disquetes/ fitas 
arquivos moveis 
estabihzadores e 
no-t>rea* ATEC 


So 

nacionais 


Sim. so nacional 
(Microsoft Bmah. 
Codesis Monk 
Nasajon. Ramo 
fabric propria) 


Sim. qualquer tipo 


SOUZA S COMPUTER 
CENTER 

(PE) 


Especiaiizada 
em micros 


TK83. TK85. CP-200. CP-300. 
CP-500 DGT-100 AP II 
Microengenho Maxxi 


impressoras grav cassete 
modems unid disquete 
momtores tv comum 
joystick, interfaces 


Fitas cassete 
disquetes 


Nacionais e 
estrangeiros 


Sim. so nacional 


Sim. vmculado a. 
compra de equip 


STRING COMPUTER 
SHOPPING 

(RJ) 


Especiaiizada 
em micros 


CP-200. CP-300 CP-500 S-600 
Maxx, TK83. TK85 TK 2000 
Color Naja Microengenho 
DGT-1000 PC 1211 RP 


impressoras grav cassete 
modems umd disquete 
momtores tv comum 

joystick interfaces 


Fits cassete disquetes 
papei/fita p impressora 
cxs p / disquetes/ fitas 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Micron Microsoft. 
String) 


Sim. qualquer tipo 


SUPRIMENTO 

(RJ) 


Especiaiizada 
em micros 


JR Sysdata Maxxi 


impressoras. umd disquete 
momtores interfaces 


Disquetes papei/fita 
p / impressora cxs p / 
disquetes arquivos. 
racks 

etiquetas pastas diversas. 
rebobmagem de 
impressora 


So 

nacionais 


Sim. so nacional 


Sim. qualquer tipo 


TESBI 

(RJ) 


Software/ system 
house 


DGT-100 DGT-101. TK83 TK85 
Alta 2064. D-8001 D-8002 
.0-6100 Maxx, CP 200 CP-300 
CP-500 S-700 


Impressoras. grav cassete 
umd disquete momtores 
joystick, interfaces 


Disquetes papei/ 
p / impressora 


Nacionais e 
estrangeiros 


Sim. so nacional 
(Polymax. Digitus. 
Prologica. 
fabric propria) 


Sim. qualquer tipo 


WORKSHOP 

(MG) 


Especianzada 
em micros 


TK85. DGT-100 Microengenho 


impressoras grav cassete 
umd disquete 
momtores joystick 


Fitas cassete 
disquetes 


Nao 


Sim, so nacional 
(Work) 


Sim. qualquer tipo 
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CURSOS 


ASSISTENCIA 


FORMA DE 


OUTROS PRODUTOS 


ENDEREQOS 


TECNICA 


F IN ANClAMENT 0 


CAL. PROG. 


VIDEOGAMES 


BASIC e outros cursos 
p> empresas curso gratis 
na compra de micro 


Nao mas encammha ao 
tabricante tern convenio 
c/ tirma de manutengao 


Fmanc Banco/ 
Fmanceira. leasing, 
consorcio 


Nao 


Dynavision 


Microsis Computadores e Sistemas Ltda. 

Matriz Rua Mostardeiro. 291. C|. 404 — tei 22-9782 — Porto Alegre — RS 
Filial Av Joao Wailig. 1800. Shopping Center iguatemi. JW-17 — tei 
34-0660 — Porto Alegre — RS 


BASIC e outros. cursos 
p/ empresas. curso gratis 
na compra de micro 


Nao mas tern convenio c / 
tirma de manutengao 


Fmanc proprio 
ate 4 meses tmanc 
Banco/ Fmanceira. 
teasing 


Lmha Hewlett 
Packard. Dismac 


Dactari. 

Dynavision 


Microtec Computadores e Sistemas Ltda. 

Rua Gai Lima e Suva. 389 — Porto Aiegre — RS 


BASIC e outros. cursos 
pi empresas curso gratis 
na compra de micro 


Nao mas encammha 
ao tabricante 


Fmanc proprio 
ate 3 meses tmanc 
Banco/ Fmanceira 
teasing 


Lmha Sharp 


Nao 


Mikro Informatics Ltda. 

Av Atonso Pena. 952. si 627 — Beio Horizonte — MG 


BASIC e outros cursos 
p/ empresas 


Sim. p/ equips 
nacionais e estrangeiros 


Fmanc propno 
ate 4 meses tmanc 
Banco/ Fmanceira. 
leasing consorcio 


Nao 


Nao 


Minas Digital Ltda. 

Matriz Rua Tupmambas 1045. ci 602— tei 201 -7555 — Beio Horizonte 
- MG 

Fmai Rua Tome ae Souza. 860 i|. B Savassi — Beio Honzonte — MG 


BASIC e outros. cursos 
p/ empresas curso gratis 
na compra de micro 


Nao mas encammha 
ao tabricante 


Fmanc proprio 
ate 3 meses 


Nao 


Nao 


Omnicom — Engenharia e Processamento de Dados Ltda. 

Av Contorno 842. 5 w ana — tei 222-401 1 . r 262 — Beio Horizonte — MG 


BASIC e outros. cursos 
pi empresas curso gratis 
na compra de micro 


Sim. p/ quaiquer 
equip nacionai 


Fmanc proprio 
ate 3 meses 


Nao 


Nao 


Prodados — Informatics, fcnsino Tecnico e Artes Ltda. 

Matriz W3 Sul. qo 506. bi C — tei 244-3505 — Brasilia — DF 
Fmais W3 None qo 504 — tei 226-2374 — Brasilia — DF/Lago Sui. qo 7. 
bi E — tei 248-5030 — Brasma — DF/ 7 aguatmga Edit Paranoa Center 

— tei 561-3307 — Brasilia — DF/Av Anhanguera. Edit Paiaao Comercic 

— tei 225-0022 — Goiama — Goias 


So de BASIC, cursos 
p/ empresas 


Sim, p/ equips 
nacionais e estrangeiros 


Fmanc Banco/ 
Fmanceira leasing 


Nao 


Nao 


Prodamic — Processamento de Dados e Consultoria Ltda. 

Matriz Av Cnstovao Colombo. 519. si 306. Savassi — tei 225-2469 — 
Beio Horizonte — MG 

Fmai Edit Vua Rica, bi D 301. Bairro Jardim Cambun — Vitoria — ES 


Nao 


Sim. pi prooutos 
compraoos na lop 


Fmanc proprio 
ate 6 meses tmanc 
Banco/ Fmanceira 


Nao 


Atan/Poiyvox. 

Odissey 


Regis Cine Foto Som Ltda. 

Pga Joao Pmheiro 15. Edt Top Center, ij 16 — tei 721-4593 — Munae 
— MG 


So de BASIC 


Sim. p/ equips Proiogica. 
Dismac. Poiymax 


Fmanc proprio 
ate 15 meses tmanc 
Banco/ Fmanceira. 
teasing 


HP-1GC. HP-1 1C. 
HP-12C. HP-15C 
HP-41CV. 71-59 


Odissey 
Atari /Poly vox 
Dynavision 


Renaux — F.abnca oe Tecidos Carlos Renaux S.A. — Lojas 

Av C Canos Renaux. 164 — tei 55-0488 — Brusque — SC 


BASIC e outros. cursos 
pi empresas. curso gratis 
na compra de micro 


Nao 


Fmanc Banco/ 
Fmanceira 


Lmha Sharp 
Dismac 


Atan/Poiyvox 


Rio Micro Computadores Ltda. 

Rua Visconoe oe Piraia. 330. ij 314 ipanema — tei 521-4888 — Rio de 
Janeiro— Rj 


Nao 


Nao mas encammha 
ao tabricante 


Fmanc propno 
ate 15 meses tmanc 
Banco/ Fmanceira. 
teasing 


HP-1 1C HP-12C 


Nao 


Ritz Cine Foto Ltda. 

Rua Frei Caneca. 7 — tei 35-1792 — Santos — SP 


BASIC e outros 


Sim. pi prooutos 
compraoos na 101 a 


Fmanc propno 
ate 3 meses tmanc 
Banco/ Fmanceira. 
•easing 


Nao 


Nao 


Shop-Computer CEDM Ltda. 

Av Sao Pauio. 718 — tei 23-9674 — Lonorma — Parana 


BASIC e outros. cursos 
p / empresas. curso gratis 
na compra de micro 


Sim. pi equips 
Digitus. Proiogica 
Microdigitai. Sysoata 


Fmanc propno 
ate 3 meses tmanc 
Banco/ Fmanceira 
•easing 


Nao 


Nao 


Siscomp — Sistemas & Computadores Ltda. 

Rua 7 iburcio Cavaicante. 298 — tei 244-4691 — Fortaieza — CE Setemaq 
icoiigaoai Rua 25 oe Margo. 293 — tei 231-342 2 — Fortaieza — CE 


Curso gratis na 
compra de micro 


Sim. p / prooutos 
compraoos na io t a 


Fmanc propno 
ate 3 vezes tmanc 
Banco/ Fmanceira. 
•easing 






Sisdata — Comer cio e Rep de Sistemas e Computadores Ltoa 

Rua Bouievaro America 12 J Baiano — tei 242-9394 e 243-2684 — Sal- 
vador — BA 


So oe BASIC, cursos 
pi empresas curso gratis 
na compra de micro 


Sim. pi equips 
Poiymax. CP-50G 


Fmanc Banco/ 
Fmanceira. teasmg 


Nao 


Nao 


Sistematika Computadores & Sistemas 

Rua Anaraae Neves 2418 — Peiotas — RS 


So oe BASIC cursos 
p / empresas 


Sim. p / equips 
Proiogica 


Fmanc propno 
ate 2 meses. tmanc 
Banco/Fmanceira. 
teasing 


Lmha Dismac. 
Sharp. Hewlett 
Packara 


Atan/Poiyvox 

Dynavision 


Souza s Computer Center 

Rua Mana Carolina. 205. i| 05 Boa Viagem — tei 325-4979— Flecite — PE 


BASIC e outros. cursos 
p/ empresas. curso gratis 
na compra de micro 


Sim. pi equips 
Proiogica. Spectrum. 
Kemitron. Digitus 


Fmanc propno 
ate 6 meses tmanc 
Banco/Fmanceira 


Nao 


Odissey. 

Dactari 


String Computer Shopping — Tampon Computadores Ltda. 

Rua Aimirante Cochrane. 210. Ti|uca — Rio oe Janeiro — RJ 


Nao 


Nao. mas encammha 
ao tabricante 


Fmanc propno. 
tmanc Banco/ 
Fmanceira. leasing 


Nao 


Nao 


Suprimento Materials para Computadores Ltda. 

Rua Visconoe oe Piraja. 550. ij 202 — tei 274-8845 — Rio de Janeiro — FL> 


So de BASIC, cursos 
p / empresas 


Sim. p/ equips 
Digitus. Osborne. Dismac 


Fmanc. Banco/ 
Fmanceira. leasing 


Nao 


Nao 


TESBl — Engenharia de Telecomumcagoes Ltda. 

Rua Guiihermma. 638. Encantado — tei 249-3166— Rio de Janeiro — RJ 


BASIC e outros 
cursos p/ empresas 


Nao mas tern convenio 
c/ tirma de manutengao 
(Tecnoccop) 


Fmanc Banco/ 
Fmanceira. leasing, 
consorcio 


Nao 


Nao 


Work Shop — Assessors e Desenvolvimento de Sistemas Ltda. 

Rua Martmezia. 34. C| 02 — tel 234-0080 — Uberiandia — MG 0 
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, industria detentora da ntais aval 
micros a grandes computadores , bem como lider nacioh 
agora ate voce ... DISKETTES BRASILEIROS. 

Datadisk 8” e 5 1/4”, produzidos na Zona Franca de 



sdo compdi 

judos 



aprovi 

A partir 
adquirir dis 
no Brasil , at 
Nacional de 
Revendedon 







A 


DATAOIS 




limn RIBBON INDUSTRIA de f/tas e impressoras ltda. 

Adm./Vendas: Rua Lord Cockrane, 775 - CEP 04213 PABX (Oil) 914.2266 Telex (Oil) 34224 
Filial RJ: Rua Senador Dantas. 75 229. andar s/2.202 Fones: (021) 220.4181 / 220. 7483 
Filial BH Rua Selenio, 264 s/202 Forte: (031 ) 334-4 768 




gada tecnologia na fabricagdo de fitas impressoras para 
il na comercializagdo de suprimentos para CJ>.D.(s), traz 



lanaus, com a mats avangada tecnologia , estes diskettes 
eis a todos os tipos de Drives existentes no mercado, foram 
gundo o padrdo ANSI e certificados com zero erro . 
le agora , voce poderd 
lettes produzidos 
aves da Rede 
Representantes e 
s. 








MARllJA/SP 334109 - CAMPINAS [SP 322786 - PRESIDENTS PR UDENTE/SP 22 7999 - MOGI DAS CR UZES/SP 460 2836 - RJBEIRAO PRETO/SP 6343135 
UNS/SP 222345 - S. JOS£ DOS CAMPOS /SP 225282 - S. VICENTE /SP 6 74424 FLORJANOPOUS/SC 0482 132 - BLUMENAU/SC 222142 - UBERLAN 
DIA/MG 232 0188 - FORTALEZA /CE 231 3163 - ARACAJU/SE 2224146 - BRAS/UA/DF 2237861 - SALVADOR/BA 2421785 MANAUS! AM 237.1492 
JU1Z DEFORA! MG 213. 1 733 - VITORIA/ES 223. 1633 - PORTO ALEGRE /RS 331556 - TEREZINA/Pf 222 1404 - GOlANIAIGO 2245486 CURITIBA! PR 

2531272 - BELEM/PARA 227.1053 - JOAO PESSOA/PB 221.4965 - RECIFE /PE 228 3224 MACEIO/AL 223 7433 



Em breve nas lojas 




Pek) prego dele voce s6 compra a i 



Ate hoje voce tinha so duas 
alternatives : ou pagava caro um 
computador de alta performance 
ou se conformava com um 
equipamento de prego e 
possibilidades limitadas. 

Agora a Microdigital langa o 
TK 2000 color ; um micro de alta 
performance pela metade do prego 
do seu concorrente mais proximo. 



Veja : e/e tern 64 kbytes de memoria- 
RAM e 16 kbytes de memoria 
ROM , trabalha com alta reso/ugao 
grafica a cores podendo ser ligado 
ao seu TV colorido ou P&B, diskette 
de 5 1/4", impressora (e/e ja vem 
com interface), gravador, cartuchos 
gravados, joystick. 

E o que e muito importante: 
tern excelentes software disponivel, 



i 




netade do concorrente mats proximo. 



inclusive planilho eletronica, editor 
de textos, controle de estoques, 
logos animados em cores e muito 
mais. Conhe^a o novo TK 2000 
color nas lojas especializadas e 
magazines de todo o pais. 

E /eve um micro avancado, de 
alta performance , praticamente pela 
metade do pre$o. 

Se na sua cidade voce nao 



encontrar o computador TK 2000, 
ligue gratuitamente para (011)- 
800 255.8583 e teremos o prazer 
de informar-lhe sobre o revendedor 
Microdigital mais proximo. 




Microdigital Eletronica Ltda. 

Caixa Postal -54121 - CEP 0 1 000 - Sao Paulo - S.P. 

A venda nas boas casas do ramo, bias especializadas de 
fotovideo-som e grandes magazines. 




Deixe o teclado de seu micro em paz e divirta-se com os jogos de video 
atrav4s deste dispositivo simples, de f6ci! montagem e custo reduzido 



Apple paddle: 

faca voce mesmo 

Evandro Mascarenhas de Oliveira 



S empre que precisamos movimentar figuras em jogos ele- 
tronicos somos obrigados a atuar repetitivamente sobre 
o teclado de nosso micro — o que pode levar a um des- 
gaste prematuro e desnecessdrio das teclas. Dai, e tambdm por 
outras razOes, a convenience do uso de controladores de jogos, 
como o paddle ou joystick . 

Pois bem. Neste artigo me proponho a ensinar como voce 
pode construir um fiddle para o seu equipamento compativel 
com o Apple, o qual possui, em sua placa de montagem, um 
conector para jogos representado por um soquete de 1 6 pinos 
(figura 1), que apresentam as segumtes finalidades: 



Figura 1 - 












Pinagem 


vcc ■ 


1 


16 




S/L 


do soquete do 












controlador 


PBO ■ 


2 


15 




AN 0 


de jogos 


PBl ■ 


3 


14 




AN 1 




PB2 ■ 


4 


13 




AN 2 






5 


12 




AN 3 




GCO ■ 


6 


11 




GC 3 




GC2 ■ 


7 


10 




GC 1 




-±r ■ 


8 


9 




S/L 



a) Pinos 1 e 8 — alimenta^So: Vcc (+5V) em 1 e Terra (OV) 
em 8. 

b) Pino 5 - strobe: normalmente saida em alto nivel, vai para 
nivel baixo durante 0,5 microssegundos ao se referenciar o 
endere^o C04F (LDA S C04F ou PEEK (-16320)). 

c) Pinos 12, 13, 14 e 15 - designados por AN3, AN2, AN1 e 



ANN 


PINO 


0 V 


5 V 


0 


15 


C058 


-16296 


C059 


-16295 


1 


14 


C05A 


-16294 


C05B 


-16293 


2 


13 


C05C 


-16292 


C05D 


-16291 


3 


12 


COSE 


-16290 


C05F 


-16289 



Figura 2 - Enderefos associados as safdas ANN para tensoes de 5 a 
0 Volts. 




vcc 

(♦5V) 



Figura 2 - ReU de 6 V acoplado a saida ANO, atravts de transistor 
NPN e resistor, controlando uma cargo por meio de pro- 
grama no computador. 



PB 


PINO 


ENDEREgO 


0 


2 


C061 


-16287 


1 


3 


C062 


-16286 


2 


4 


C063 


-16285 



Figura 4 - 

Enderefos 

associados 

aos push 

buttons 

PB 



ANO e denominados Annunciators , podem assumir as tensGes 
5V ou 0V (conforme a Figura 2), carregando-se o acumulador 
com zero (LDA # 0) e transferindo-o para o endere^o indica- 
do (STA end), ou entao atravds de POKE end, 0. Sao utiliza- 
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dos para controlai as cargas externas a partir de programa no 
computador (figura 3). 

d) Pinos 2, 3 e 4 - designados por PBO, PB1 e PB2 e denomi- 
nados push buttons , sao entradas TTL associadas aos endere- 




90 s da figura 4. No micro, as duas primeiras (pinos 2 e 3) sao 
as usadas nos dois controladores (paddle 0 e paddle 1). 

e) Pinos 6, 7, 10 e 11 - designados por GCO, GC2, GC1 e 
GC3, sao as entradas analdgicas dos controladores, associadas 
aos endere 90 s da figura 5 e ligadas ao integrado 558 (tempori- 
zador quidruplo) em configura 9 ao monoestdvel. Quando a 
rotina interna da ROM com inicio no endere^o FB1E £ chama- 
da, o endere 90 C070 e referenciado, permitindo o disparo dos 
quatro monoestdveis simultaneamente, por um periodo que 
depende da posi 9 ao do cursor do potenciometro ligado a en- 
trada (figura 6 ), retornando no registrador Y um valor entre 0 
e 255 ($00 e SFF), proporcional a tensao aplicada no pino 
controlado. 

Devido ao disparo dos quatro monoestdveis, deve-se intro- 
duzir sempre um retardo entre as chamadas da rotina FB1E pa- 
ra cada controlador, a fim de permitir que a saida dos tempori- 



VCC (5V) 




Figura 6 - Conexoes bdsicas dos push buttons e das entradas anald- 
gicas GC no controlador de jogos. 



zadores volte a zero, pois, caso contrino, o valor retornado em 
Y n§o corresponded a posi 9 ao do cursor. 

Um programa simples para constatar o desempenho do con- 
trolador 6 dado por: 

5 HOME 
10 X s3 PDL(O) 

20 PRINT X 
30 GOTO 10 

Variando a posi 9 ao do cursor do paddle 0 , serfo exibidos 
no vfdeo, nas tr£s primeiras colunas, os numeros entre 0 e 255. 
Substituindo a linha 20 por: 

20 POKE 1576, Xs HTAB 10s VTAB 13s PRINT " 

25 HTAB 10 s VTAB 13s PRINT X 




Ha um novo 
computador pessoal 
no mercado! 

HP-85B 

com disco eletronico 



HP-85B. um passo adiante! Em um unico 
gabinete voce encontra teclado, tela alfanu- 
merica e grafica. unidade de fita magnetica 
digital, impressora com capacidade gr&fica. 
sistema operacional com 48 K, e um Disco 
Eletronico que. expandido atrav6s de m6du- 
lo de memoria, amplia o sistema at£ 192 
Kbytes. 

() novo II P-85B possui 64 Kbytes de memo- 
ria. dos quais32 Kbytes (RAM) diretamente 
acessados pelo usu&rio. Os outros 32 Kbytes, 
tamb£m RAM, compdem uma memdria de- 
nominada Disco Eletronico que Simula um 
acionador de discos, pordm de altissima ve- 
locidade. Permite armazenar dados, tempo- 
rariamente, e depois recuperd-los com velo- 
cidade ate 150 vezes maior do que na fita 
magndtica digital, e atd 15 vezes maior do 
que numa unidade de discos flexiveis. 

Conheca hoje o HP-85B, o computador 
completo, portatil econfidvel com Disco Ele- 
tromco que oferece mais velocidade e atd 
192 Kbytes! Garantia de 3 meses. Assistencia 
Tdenica 



Alta velocidade 
com ate 192 Kbytes! 




HP-85B 

com disco eletronico 



, r 



Cc 


nnputador pessc 


>al 




COMPLETO 

PORTATIL 

CONFIAVEL 


A 



HEWLETT-PACKARD DO BRASIL 
IND ECOM LTD A 

At AMEDA RIO NEGRO. 750 
RODOVIACASTELO BRANCO. KM 23.5 * BARUFRI 
SAO PAULO -CEP 0M00 • FONE (011)421 1311 






HEWLETT 

PACKARD 
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Kemeta esie cupom para recebor literatura 
tu nica do novo romputador HP-85B 



Nome ... 
ProfissAo 

Kua 

CEP 



N? Apto. . 

. Cidade Kstado . 






APPLE PADDLE: FAQA VOC£ MESMO 



a tela mostrara todos os caracteres de texto utilizados pelo sis- 
tema em seus modos inverso, flash e normal, acompanhados de 
seus respectivos codigos decimals. 

Para usar a rotina da ROM com micio em FB1E, o valor nu- 
m^rico do fiddle (0 ou 1) sera carregado no registrador X, o 
qual referenciara o endere^o C064,X (C064 para o / Middle 0 e 
C065 para o fuddle 1 ); o potencidmetro retornara, no registra- 
dor Y, os valores entre 0 e 255. 

Quando o interruptor dos pinos PB (2, 3 ou 4) 6 fechado, o 
bit 7 dos endere^os C061 , C062 ou C063 vai para um, mdican- 
do um numero negativo; testando-se o valor, positivo ou nega- 
tivo, podem-se controlar as mstru^Qes do programa que serao 
executadas ou nao. 

O programa a seguir desloca, apos comprimirmos o botao 
do fxiddlc 0, uma umdade grafica (retangulo vermelho) na tela: 
girando o eixo do potenciometro da esquerda para a direita, o 
retangulo se deslocara nas lmhas 0, 8, 16, 1, 9 e 17, retornan- 
do, em sentido contrario, ao girarmos da direita para a esquer- 
da. Expenmente-o: 

0300- 20 50 FC JSR 

0303- 20 40 FB JSR 

0306- AD 61 CO LDA 

0309- 10 FB BPL 

I—030B- A9 11 LDA 

030D- 85 30 STA 

030F- A2 00 LDX 

0311- 20 IE FB JSR 

0314- A9 00 LDA 

0316- 20 00 F8 JSR 

0319- A9 32 LDA 

031B- 20 A8 FC JSR 

03 IE- A9 00 LDA 

0320- 85 30 STA 

0322- A9 00 LDA 

0324- 20 00 F0 JSR 

1-0327- 4C 0B 03 JMP 



IFC50 — HQfC 
IFB40 — 6R 

$C061 J AGUARDA BOEfo PBO SER CUFRIMIDO 
$0306 l PARA IR A 30B 

I30 1 { 00,1 

#$00 J CARREGA PACDLE(O) EM X, RETOFNATCO 

$FB1E 1 EM Y OS VALORES EJfTRE 0 E 255 

IP800 { CM Y.O 

3FCA8 { 

*30° { OOR PierA 

$F800 { ***** A a^flCA 

$0 30B 



circuito eletrOnico 



Os dispositivos foram montados em caixa plastica de radio 
portatil com as dimensoes de 65 x 55 x 25 mm, cujo orificio 
do alto-falante foi coberto com placa de acrilico fixada a cai- 
xa, tendo o potenciometro preso em sua parte central. O in- 
terruptor foi instalado em uma das laterals e o cabo condutor 
foi feito com fio paralelo duplo, com malha individual em 
cada um, obtendo-se os quatro condutores necessanos as 
conexQes. 

Em meu micro foram instalados dois soquetes Philips de 
emeo pinos na face posterior do equipamento, ligado ao so- 
quete de controlador por cabo multiplo de seis veias e conec- 
tores adequados (figura 8). O material empregado foi o se- 
guinte: 




Figura 8 - Painel traseiro do Apple onde foram instalados os dois so 
quetes Philips de cinco pinos para os dois controladores 
( PDLOePDL 1). 



A configura^o basica do controlador esta na Figura 6: cada 
paddle (0 ou 1) possui um potenciometro RP com o pino cen- 
tral (cursor) ligado a entrada analogica GC; os outros dois pi- 
nos sao ligados em Vcc e Terra. A entrada PB e mantida em 
nivel baixo pelo resistor R, indo a nivel alto quando se fecha a 
chave CH, ligada ao Vcc. 




O circuito eletronico dos dois controladores (paddle 0 e 
paddle 1) esta na figura 7. Os potenciometros estao indicados 
por R2 e R3, os resistores de aterramento por R1 e R4 e os 
interruptores por CHI e CH2. 



1) Resistores 

• R1 e R4 -470 ohms - 1/4 W 

• R2 e R3 - 100 kohms - potenciometro linear de carvao (*) 

2) Diversos 

• CHI e CH2 - interruptor monopolar simples de pressao 

• Caixa plastica de rddio portatil, knobs, cabo paralelo duplo 
com malha individual nos dois condutores, conectores para so- 
quete de 16 pinos etc. 



(*) Observa 9 ao: na verdade, qualquer potenciometro de 1 
kohms pode ser empregado, uma vez que somente cerca de 
1/3 da pista e utilizado para vanar os numeros entre 0 e 255, 
devendo-se iar preference ao potenciometro de Fio ao invds 
do de carv2o, o qual tern maior durabilidade e Constance na 
varia^o. ■ 



Evandro Mascarenhas de Oliveira 6 medico e exerce suas atividades em 
Laboratdrio Ctfnico e Instrumentaqao Mddica Trabalhou durante qua- 
tro anos com o computador Burroughs 6700 do Nudeo de Computagao 
Eletrdnica da UFRJ, usando as /inguagens FORTRAN IV e Algol. Tern 
vArios artigos pub/icados nas Areas de Eletrdnica Digital e Gera/ em re- 
vistas especial izadas. 
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Como aprender 
microcomputa^ao sem 
fazer muita for^a. 

A Libra e formada por profissionais que conhecem todos os segredos dos micros. 

Eles desenvolveram um mbtodo simples, fedl e descomplicado para vocb 
aprender microcomputac&o. 




Toda a for^a jafoi feita para voce. 

Vocb s6 entra com a vontade de aprender. E a Libra entra com a estrutura 
mais completa do mercado em microcomputag&o. 

Apostilas prbprias, espedalmente preparadas. Professores espedalizados. Treinamento 
em software de todos os niveis de sofisticacdo. Cursos em todos os horarios, em ingles ou 
portugubs. Salas de apenas 12 alunos, com no maximo tr§s alunos por micro. Certificado de 
conclus&o. 

Voc6 entra, senta e fica espantado: nunca foi t§o facil e tao rapido aprender tudo sobre 
microcomputa^do. 



Voce aprende tudo o que quiser. 



Os cursos da Libra vfio do be-a-bb ate a p6s-graduagiio. Estes sdo 
apenas alguns exemplos: 

Introducao ao microcomputador - o que 6, para que serve, como funciona, 
histbrico, possibilidades futuras. 

Aplicativos - vocb b apresentado ao conceito dos escrit6rios do futuro: “office- 
automation 0 atraves dos programas mais famosos e utilizados do mundo: Visicalc, 
Banco de Dados, Edi^do ae Textos e Graficos. 

Basic Total - a programa^o pelo caminho mais ciuto. 

Treinamento em softwares - os programas mais avan^ados e utilizados, vistos com 
toda a profundidade, exclusi vidade Libra. 





Sua empresa tambem ganha com a Libra. 

Ganha porque seus funcionbrios n&o perdem tempo, e j& v&o logo aproveitando 
todas as vantagens dos micros. 

E ganha porque a Libra tambbm coloca a sua empresa em contato com os melhores 
servif os de microcomputa^o e o melhor software disponiveis. 

Desenvolvimento de sistemas especiais. Aplicativos de todos os tipos. Orienta^o na 
implantac&o e utiliza^do de sistemas. 

Tudo o que um micro pode fazer, a Libra ajuda vocb e sua empresa a fazer melhor. 

E sem fazer a menor forpa: o unico trabalho b telefonar ou mandar o cupom. 



i 3 Libra 

Libra Informatica Ltda. 

P?a. Charles Miller, 96 - CEP 01234 
Tels.: (Oil) 65.5081 e 262.9033 
(em frente ao Est. do Pacaembu) 



Gostaria de receben ( ) maiores informa <;6es ( ) a visita de um representante \ 

Nome 

Endere^o 



.N?. 



L 



Tel 

Cargo. 



. Empresa. 



y 




Seu micro da l/nha TRS-80 I fara de voce o pile to de um ca$a sobre uma cidade que 
estci sendo atacada. E preciso salvd-la das bombas inimigas... Portanto, mire e at ire 



Bombardeio 

Helvecio C. R. Netto 




que leva algu^m a escrever um 
jogo? Talvez a esperansa de 
passar algumas divertidas horas 
na frente do micro. Mas, por que nffo 
comprar um jogo? A resposta e simples: 
porque os jogos sao o tipo de software 
mais sujeito a criticas, exatamente por 
dependerem mais do gosto do fregues. 
Nao existe abundancia de material no 
mercado, apesar de parecer o contrdrio, 
e o usuano encontra dificuldade em 
escolher um que lhe agrade. 



0 jogo Bombardeio foi esento para 
ilustrar algumas tecmcas de programa^ao 
de jogos que poderao ser usadas em 
outros enredos. A montagem da tela foi 
feita em vdrios niveis:o chSo, os pr^dios, 
a mira, o contador de combust ivel, etc. 
A rotina de movimento foi construida 
com a utiliza^o das mstru^des SET e 
POKE, a primeira para movimentai as 
bombas e a segunda para movimentar a 
mira, ambas com o objetivo de agilizar o 
deslocamento dos objetos. 



A consulta ao teclado 6 feita atravds do 
PEEK da posi^ao 14420. Tai posi 9 ao 
devolve: 

8 - seta para cima 
16 — seta para baixo 
32 - seta para direita 
64 - seta para esquerda 
128 - barra espa 90 
0 - para o resto 

Como fica ftcil notar, LOG(N)/LOG(2)-2 
devolve um numero no intervalo entre 
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Bombardeio A6reo 



10 GOSUB 370 
20 GOSUB 330 
30 RC=0 

40 DEFINT A-Z: CLS: P=16032: Pl = 
ASC ( " + " ) : C~RND (127) : L=7 : D»ls 
S=20 

50 FOR 1=0 TO 63: POKE 1+16320,1 
31: POKE 15424+1,15: NEXT 
60 FOR 1=1 TO 10: POKE 16256+RND 
(63) , 191: NEXT 

70 PRINT©10,"< COMBUSTIVEL > M ;@4 
0, M < RECORD > " ; RC ; 

80 POKE P,P1 

90 PRINT$25,S; : SET(C,L): A=PEEK 
(14420) : IF A=0, 120 
100 A=LOG ( A) /LOG ( 2) -2 
110 ON A GOSUB 160,180,200,220,3 
10 

120 RESET (C, L) : L=L+1: IF L=45, 
GOSUB 240 

130 IF RND ( 100 ) < 20 , D=-D 

140 IF C+D>0 AND C+D<127, C=C+D 

150 GOTO 80 

160 IF P> 15552 , POKE P,128: P=P- 
64 

170 RETURN 

180 IF P< 16192 , POKE P,128: P=P+ 
64 

190 RETURN 

200 IF P>15492 , POKE P,128: P=P- 

4 



210 RETURN 

220 IF P<16251, POKE P,128: P=P+ 
4 

230 RETURN 

240 FOR 1=1 TO 20: OUT 255,0: OU 
T 255,1: NEXT 

250 L=7 : C=RND(127): IF S>1, S=S 
-1: RETURN 

260 PRINT@12 , "FIM DE J0G0";@26," 

" ; 

270 PRINT@526,"== CLASSIFICAQAO 
= = H ;<?660 , SI ; " == " ; R$ (Sl/10 ) ;<3>85 
6 , " < RETURN > PARA NOVO JOGO"; 
280 A$=INKEY$ : IF A$="", 280 ELS 
E IF ASC ( A$) <>13 , 280 
290 IF S 1 > RC , RC=S1 
300 GOTO 40 

310 POKE P, 191 : FOR 1=1 TO 20: O 
UT 255,1: NEXT 

320 POKE P, 128 : IF P=INT(L/3) *64 
+INT (C/2) +15360 , S=S+6: S1=S1+1: 
GOTO 240 ELSE RETURN 
330 FOR 1=0 TO 9: READ R$(I): NE 
XT 

340 DATA "LAMENTAVEL. . . ","AINDA 
BEM QUE ERA SO* UM JOGO. . . " , "UM 
DIA QUEM SABE . . . M , "BOM AP ROVE IT A 
MENTO" , " JA ' TA' MELHORANDO. . . " , " 
QUEM DIRIA: BOM PLACAR! " , "UM VER 
DADEIRO PILOTO" , "NEM EU FARIA ME 



LHOR! " , "NEM BUCK RODGERS FARIA M 
ELHOR'." 

350 DATA "VOCE SO' PODE TER ROUB 

ado: 

PLACAR MAXIMO!" 

360 RETURN 

370 CLS: FOR 1=1 TO 62: POKE 153 
60+1,10: POKE 16320+1,21: NEXT 
380 FOR 1=15424 TO 16256 STEP 64 
: POKE 1,210: POKE 1+63,206: NEX 
T 

390 PRINT@148,"B OMBARDEI 
O" ;@266 , "Sua cidade esta' sob b 
ombardeio inimigo" ;G330, "Sua mis 
sao: salva-la" ;€>394 , "Para isso v 
oce conta unicamente com";@458," 
sua habilidade nos comandos de s 
eu caga, ";@>522 , "acertando as bom 
bas com seus foguetes"; 

400 PRINT@>650 , "Movimente a mira 
com as setas e dispare com";@714 
, "a barra de espago" ;@778 , "CUIDA 
DO: nao deixe o combustivel acab 
ar ! " ? 

410 PRINT@926,"< RETURN >";: FOR 
1=1 TO 40: OUT 255,0: OUT 255,1: 
NEXT: A$=INKEY$ : IF A$="",410 
ELSE IF ASC (A$) <>13, 410 
420 RETURN 






1 e 5, dependendo da tecla pres&ionada. 
O resto do jogo pode ser resumido a 
poucos passos, como atualizagao de 
ponteiros e contadores. 

Este jogo 6 um exemplo que cont^m 
elementos suficientes para que voce 
finalmente anime-se, ponha a 
imaginagao para fundonar e escieva suas 
aventuias. 



COMO JOGAR 



Ao final da listagem digite RUN. O 
sistema vai apresentar na tela as regras do 
jogo. Para a movimentagSo voce vai 
utilizar as setas (esquerda, direita, cima. 
baixo) e a barra de espago para atirar. 

Para acertar as bombas voce tera um 
combustivel imcial de defesa, que se ui 
desgastando a cada nova investida. Mas 
nao se prcocupe; em compensagao, a 
cada bomba atingida voce receberi um 
combustivel extra para prosseguir o 
combate. 

No final, quando voce tiver gasto todo 
seu combustivel, o sistema ni mostrar. 
no campo superior da tela, quantas 
bombas voce acertou e qual a sua 
classificagao final. 

Nio desanime nat primeiras tentativas 
se a sua performance nSo for excelente. 
Aqui vai uma dica: n2o tente destruir as 
bombas no alto da tela; espere que elas 
abaixem para desferir o tiro fatal. 



Helvecio C. R. Netto cursa atualmente o 49 periodo de Informdtica na UFRJ. tendo cursos de 
FORTRAN , Pascal, Assembler, ALGOL e COBOL . Estagia desde agosto de 1983 no CPD da 
MICRO S /STEM AS. 



Nao pare seu programa 
nem perca a memoria 
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Fa fa a sua boa agio do dia: ajude uma "ga/inha" a atravessar uma 
avert id a congest ionada, na tela de seu micro da I inha Sinclair 



Penosa travessia 

Gustavo Egidio de Almeida 



E ste programa foi escrito para os micros da linha Sinclair 
e consiste no seguinte: voce est i em frente a uma 
avemda congestionada e tern que atravessar uma 
palinha (carater S) de urn lado ao outro desta avemda, 
desviando dos veiculos que nela transitam. Se a galinha for 
pega por algum dos veiculos, ela retorna ao ponto de partida. 

0 unico detalhe e que zpalinha so pode mover-se para cima e 
para baixo, respectivamente com as teclas 7 e 6. Na parte de 
baixo da tela, hd um contador que marca quantas vezes foi 
conseguida a travessia e outro que marca o recorde do jogo. 

A digita^ao deve ser feita em duas etapas. Entre pnmeiro com 
a list age m 1 e de um RUN (se quiser, liste o programa e veja 
como a linha 1 mudou de aspecto). Apague todas as linhas, 
exceto a 1, e entre com a listagem 2. 

Pronto. Agora 6 so tremar bastante, conseguir um recorde bem 
alto e desafiar seus amigos a superd-lo. Voce ver £ que 
atravessar uma palinha n2o £ tao facil assim como parece... 

Gustavo Egidio de Almeida possui cursos de BASIC e COBOL. Atual- 
mente cursa o Nudeo de Orientaoao de Estudos. especial izan dose em 
linguagem de miquina. mais especifica mente no Assembly Z-80 usado 
em micros da linha Sinclair. £ usuario, hi mais de seis meses. de um CP- 
200 . 



A venida — listagem 1 



1 REM XXX (34 CARACTERES QUAIS 
QUER) XXX 

2 LET A$="2A0C4023012116CD944 
0C5060009C110F6C9E5C5061F7E234E2 
B712310F97 7C1E1C9 " 

3 LET M=16514 

4 FOR K=1 TO LEN A$ STEP 2 

5 LET A= ( CODE A$ (K ) -28 ) *16+C0 
DE A$ (K+l) -28 

6 POKE M, A 

7 LET M=M+1 

8 NEXT K 



2 REM GUSTAVO EGIDIO DE ALMEI 
DA 

3 REM AVENIDA 

4 POKE 16418,0 

5 LET P=0 

6 LET L=0 

7 LET = 

g gg • | >.0 H 

9 PRINT AT 8,0; "O OBJETIVO DO 
JOGO EH", "ATRAVESSAR A GALINHA 
($) DE UM" , "LADO AO OUTRO DA AVE 
NIDA" 

10 PRINT ,, "TECLAS 6 E 7 MOVEM 
($)" 

11 PRINT , , "PARA COMECAR TECLE 
0" 

12 IF NOT INKEY$="0 " THEN GOTO 
12 

13 FAST 

14 PRINT AT 0,0; 

15 FOR F=1 TO 70 

16 LET M=INT (RND*12)+140 

17 PRINT " " ; CHR$ M;" *" 



A venida — listagem 2 



18 NEXT F 

19 FOR F=1 TO 21 

20 LET M=INT ( RND*1) 

21 IF M=0 THEN PRINT AT F, INT 
( RND*28) ; " 

22 IF M=0 THEN PRINT AT F , INT 
(RND*28) ; " 

23 NEXT F 

24 PRINT AT 0,0;A$;AT 22,0;A$ 

25 SLOW 

26 GOSUB 28 

27 GOTO 31 

28 IF L>=P THEN LET P=L 

29 PRINT AT 23, 3; "VEZES: ";L;T 
AB 17; "RECORDE: ";P 

30 RETURN 

31 LET A=22 

32 LET B=10 

33 FOR Z=1 TO 300 

34 PRINT AT A,B;"$"; AT A, B; " " 



35 IF PEEK (PEEK 16398+PEEK 16 
399*256)<>0 THEN LET A=22 

36 IF INKEY$="6 " THEN LET A=A+ 

1 

37 IF INKEY$=" 7 " THEN LET A=A- 

1 

38 IF A>22 THEN LET A=22 

39 LET E=USR 16514 

40 IF A=0 THEN GOTO 47 

41 NEXT Z 

42 GOSUB 28 

43 PRINT AT 0,6;"OUTRA VEZ? DI 
GITE 0" 

44 IF NOT INKEY$="0" THEN GOTO 
44 

45 LET L=0 

46 GOTO 13 

47 LET L=L+1 

48 GOSUB 28 

49 LET A=22 

50 GOTO 41 

51 SAVE "AVENIDA" 

52 SLOW 

53 RUN 5 
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EQUIPAMENTOS 



• Compro a c6pia do manual de 
operapao do sistema NEW DOS. 

I ratar com Carlos Lacerda Lopes, 
Rua Am6rico Lobo. 675, Manoel 
Honbrio, Juiz de Fora, MG. 

• Troco micro TK85 de 48 K de 
RAM, novo (na caixa) e Walkman 
PS-50 da CCE por um CP-300 em 
bom estado. Telefonar para Sbrgio 
ap6s as 18:00h: (Oil) 220-6510. 

• Vendo TK82-C de 16 K, 20 
jogos, joystick com dois livros so- 
bre jogos e um livro de aplicapdes 
s^rias por Cr$ 150 mil. Tratar 
com Fernando, tel.: (041) 266- 
1259, Curitiba, PR. 

• Vendo NE-Z8000, com expan- 
sao de 16K, pouco uso, por Cr$ 
120 mil. Rio Branco, 45, 1311, 
RJ. 

• Vendo microcomputador DGT- 
100 com 32K RAM, video e gra- 
vador cassete. Tratar com Carva- 
lho, ap6s as 19:00 h pelo tel.: 
(0192) 52-3477, Campinas, SP. 

• Vendo um CP-200, com pouco 
uso. Tratar com Silvio Vasconce- 
los na Rua Tabapua 266, apt. 31. 
tel.: (011) 64-5001, Sao Paulo. 

• Vendo TK82-C, sem expansao 
e na garantia por Cr$ 90 mil. Tra- 
tar com Claudio na Rua Carolina 
Florence, 625, Campinas, Sao 
Paulo, tel.: (0192)42-5151. 

• Vendo um NE-Z8000, mais o 
esquema do slow e o esquema do 
CP-200 que permitem a conver- 
sao do NE-Z8000, tudo por Cr$ 
80 mil. Compro um D-8000 ou 
DGT-100 ou um JR da Sysdata; 
tratar com Roberto Diniz, Rua 
Vicente Scherma n9 35, Jacaref, 
Sao Paulo. 

• Vendo HP-41 C com leitora. 
trbs mddulos de expansao e um 
mddulo "Structural Stress". Li- 
guem para 531-0556, Gerson 
Bianco Alonso, Sao Paulo. 

• Vendo modem Coencisa MPC 
12, naembalagem. Tel.: 71 1-3072, 
Cristina, Niterbi, RJ. 



DIVERSOS 



• Vendo diversos livros em In- 
gles sobre micros; programas em 
fita que acabam com a repetip§o 
inoportuna de teclas nos Dismac 
e similares; amplificador para, 
junto com essa fita, obter Beep do 
teclado e tocar musicas dos pro- 
gramas publicados em MICRO 
SISTEMAS sobre aplicapdes sono- 
ras para DGT-100; esquema de 
programador de EPROM para a 
linha TRS-80 I e III; e interface 
RS-232 pela sai'da cassete. Enri- 
que Ferri, Rua Fiapao da Saude, 
128/103, CEP 04144, SSo Paulo, 
SP. Tel.: 247-4400 R:335. 



• Vendo as seguintes revistas: 

Nova Eletrdnica (do n? 3ao81), 
Interface (n9 1 ao 10), Micro 

Mundo (n?s 1 a 18, quando jor- 
nal, e 1 ao 3, revista), MICRO 
SISTEMAS n9 6 e os livros: Guia 
para Programadores, de Marlyn 
Boll e Programapao Cobol.de Alex 
C. Bastos. Vendo tamtam o jornal 
Data News de maio de 1981 at£ 
maio de 1983. Tratar com Sflvio 
pelo tel.: (011) 2934608, SP. 

• Fapo slow, controle automdti- 

co para cassete, funpbes especiais, 
gravador de EPROM nos micros 
Z-8000, CP-200, TK82-C e TK85. 
Tamtam gravo membrias sob en- 
comenda. Tratar com Jenilton, 
Rua 227-A, n? 255, Setor Univer- 
sitario, tel.: (062) 261-2862, 

Goidnia. 

• Compro, desde que estejam 
em perfeitas condipoes, as revistas 
MICRO SISTEMAS n?s: 02. 06, 
07 e 09, por Cr$ 1 mil cada. Car- 
tas para SOvio de Queiroz, Prapa 
da Matriz n? 01 , BNH, Bairro Sao 
Francisco, Sao Luis, Maranhao, 
CEP 65.000. 

• Compro os nQ s 1 , 2, 4, 5, 6 e 
7 de MICRO SISTEMAS, pelo 
prepo atual. Contatos pelos tels.: 
(071) 231-5657 (residencial) e 
231-2145 (hordrio comercial). 
Olinto Josd de Oliveira, Rua Vi- 
vendas do Imbui, E8, Igarapd, 
apto. 303, Salvador, BA. 

• Vendo o livro "Jogos para a 
HP41C", contendo 15 progra- 
mas. entre os quais: Flipperama, 
Guerra nas Estrelas, Biorritmo, 
etc. Tratar com FI3vio pelo tel.: 
(Oil) 570-7829. 



SOFTWARE 



• Vendo para o TRS-80 Color 
Computer e similares nacionais 
"SPEAK UP", sintetizador de voz 
totalmente software, de excelente 
qualidade, adiciona voz varidvel, 
fala qualquer idioma, manual 
completo. Prepo: US$ 30,00 (cas- 
sete com instrupdes). Tratar com 
Josd Gilberto Mendonpa Filho, 
Alameda Andrade. Ed. Serra do 
Garcia, apto. 1203, Garcia, Salva- 
dor, Bahia, CEP 40000. 

• Vendo fita com programa de 
xadrez para o TK82-C por Cr$ 5 
mil. Tratar com Edison ou Isabel 
pelo tel.: (011) 436-0665 ou es- 
crever para Av. Manoel Pontes 
Junior, 295, Jundiai, SSo Paulo. 
CEP 13200. 

• Vendo um programa que, en- 
tre outras coisas, calcula e gera as 
combinapbes na Loto (e os respec- 
tivos cartdes de dez apostas, 
obviamente) para uma quantidade 
de dezenas a escolher. Os interes- 
sados procurar David Lucio L6- 
pez, Rua Marte, 101/403, Jardim 
Riacho, Contagem, MG — Tel.: 
(031) 351-3468. 



• MICROCLUB - TK-82/85 e 
CP-200/300/500. Associe-se gra- 
tuitamente e garanta o recebimen- 
to imediato de quatro programas 
de jogos. PromopSo at6 30 de ou- 
tubro. Envie envelope selado e de- 
talhes de seu micro. MICROCLUB, 
Cx. Postal 941, S. B. Campo, SP, 
CEP 09700. 

• Clube de usudrios de micro- 
computadores no qual voce troca 
idbias. programas, equipamentos e 
soluciona duvidas. Para maiores 
informapbes escrever para Caixa 
Postal 7459, CEP 01000, Sao 
Paulo. 

• Desejo entrar em contato com 
usudrios de micros similares ao 
TK82-C para troca de programas 
e experiences, principalmente os 
residentes na regi3o de Blumenau, 
onde poderemos marcar reunioes. 
Contatar Zoctan Bergmann, Cx. 
Postal 2172, CEP 89100, Blume- 
nau. Santa Catarina. 

• Gostaria de obter cdpia do 
artigo : : Z-Bug Super Debug Mo- 
nitor : : publicado na revista 80 
MICRO de janeiro de 1981 . Quern 
tiver a revista entrar em contato 
com: Vagner Ribeiro, Av. Miran- 
dela, 51 , Nilopolis. Tel.: 791 -2427 



• Estamos organizando em Vi- 

posa um clube para troca de infor- 
map6es entre usu£rios de equipa- 
mentos de I6gica Sinclair e de 
outroscompativeis com o TRS-80. 
Para inicio, confeccionamos um 
boletim com jogos, programas e 
dicas especiais e estamos ofere- 
cendo aos leitores de MICRO 
SISTEMAS que nos escreverem, 
enviando Cr$ 100 e selos para as 
despesas postais. Nosso enderepo 
4: Compuclub, Caixa Postal 37, 
CEP 36570 - Viposa, MG. 

• A Micro Id6ia Sistemas, Edu- 
capao e Informatica Ltda. esta 
formando um clube de usu£rios 
do Sinclair (TK82-C e ZX-81) no 
Brasil. Correspondence para: Av. 
Mai. Camara, 160, s/1 .426, Caste- 
lo, CEP 20031, RJ. 

• Fapa amigos em todo Brasil 
para troca de programas, livros, 
etc. Anuncie em grande clrcuito 
Sinclair. Informapdes gratis. Cx. 
Postal 28, 27200 - Pirai, RJ. 

• Clube dos usudrios do TK82-C, 
NE-Z8000, ZX-81. TIMEX 1000 
e CP-200 escreva para Gonpalo 
Murteira, Prapa Belfort Vieira, 
6/103, Leblon, Rio de Janeiro, 
CEP 22440. 



- RJ. 



er 


ro 


MS 

N9 


NA 

pAgina 


ONDE 
SE Ur 


LEIA-SE 


26 


35, de O Sistema 
Operacional do 
ZX81 (II), 2? 

coluna, 7? linha 
do par£grafo 
IMPRESSAO 
NO VIDEO 


Essa 3rea 6 imbvel 


Essa area 6 mbvel 


26 


40, de O Gran Mago 
Z80, 2? coluna, 3? 
linha 


Como 1 7 
4 igual a 8 


Como 1+7 
a igual a 8 


26 


79, na linha 026 

da Listagem 1! 
Horbscopo 


026 


026 / 


No n9 26, a linha 240 da listagem Jogo do Alvo 
(pag. 75) nao saiu legivel. Se voce teve alguma duvida, 
veja a linha completa a seguir: 


240 IF SCRN< X»V> = 8 THEN HOME 
: UTAB 23: PRINT TAB< 5>"T0 
ME CUIDAD0 COM A MONTANHA! ! ! 

POKE 8.255: POKE 7,255: CALL 
768: CALL 768 t CALL 768: HOME 
: GOTO 1 70 
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Mostre sua habit idade de bom comedor de pontinhos, ao mesmo tempo 
dribtando monstrinhos, nesta versao do Pac Man para a linha Sinclair 



Micro Pac: 
saia dessa, se puder 

Walmir Scaravelli 



A qui est a uma versSo de urn dos 
mais populares games dos Esta- 
dos Unidos, o Pac Man (ou Co- 
me-Come , que fica atd mais simpatico). 
Trata-se do Micro Pac , que pode ser ro- 
dado em qualquer micro da linha Sin- 
clair com configura^o de 16 Kb, embo- 
ra use menos mem6na do que isso. 

0 objetivo do jogo jd £ conhecido de 
todos: deve-se controlar o Come-Come 
com as teclas 5, 6, 7 e 8 — ou com um 
joystick — e comer o maior numero de 
pontinhos possivel (quern sabe atd to- 
dos). No entanto, nao esque^a: voce es- 
t d em um labirinto, sem poder atravessar 
as paredes, e o guardido deste labirmto 
estard sempre atrds de voce. Se ele o pe- 
gar, o jogo acaba. Portanto, nao de 
moleza! 

0 jogo foi escnto em BASIC e, por 
isso, nfo espere que ele seja muito rdpi- 
do; por£m, foram tornados todos os 
cuidados para que, dentro do BASIC, 
ele seja o mais rdpido possivel. 

Lembrete: se voce desejar mudar o 
labirmto, terd que fazer altera^des entre 
as linhas 200 e 440. Vamos Id, mdos a 
obra e boa sorte (voce ai precisar). 



Walmir E. S. Scaravelli 4 aluno dos cursos de 
Matem4tica Ap/icada a Sistemas e Estatisti - 
ca, ambos na Uni vers idade de Campinas , onde 
tambdm traba/ha no projeto LOGO. O autor 
4 ainda professsor de Proaramacao de Micro * 
computadores na cidade de itu, onde reside. 



Micro Pac 



5 REM WALMIR SCARAVELLI 10/83 
10 GOTO 200 
20 LET A*6 . 5 
30 LET X=0 
40 LET V$=INKEY$ 

50 IF V$<>"" THEN LET A=VAL V$ 
60 POKE C,.S 
70 POKE P,0 

80 LET X«34*A-50*SGN (A-6.5)-2 

21 

90 IF PEEK (P+X) <>136 THEN LET 
P=P+X 

100 POKE P, 128 

110 LET Y«33*SGN (INT ((P-C)/28 

)) 

120 IF PEEK (C+Y) <>136 THEN LET 
C*C+Y 

130 LET Y=SGN ( (ABS ((P-C)/33-I 
NT ( (P-C) /33))<.5)-.5) 

140 IF PEEK (C+Y) <>136 THEN LET 
C=C+Y 

150 LET S=PEEK C 

160 POKE C, 151 

170 IF P<>C THEN GOTO 20 

180 CLS 

190 PRINT AT 10,10; M NAO DEU" 

195 STOP 

200 FAST 

210 PRINT 

220 FOR 1=1 TO 10 

230 print " 

240 PRINT " 8 

wr 

250 NEXT I 




270 FOR 1=2 TO 30 STEP 14 

280 FOR J=3 TO 19 STEP 4 

290 PRINT AT J,I;"." 

300 NEXT J 

310 NEXT I 

320 FOR 1*5 TO 17 STEF 6 

330 PRINT AT 1,11; " . ";AT 1,21;" 

n 

340 NEXT I 

350 PRINT AT 9,2;"."; AT 9,30;^. 

" ; AT 13,2;"."; AT 13,30;"." 

360 PRINT AT 7,15;".";AT 7,17;" 
. M ;AT 15,15;"." ; AT 15,17;"." 

370 PRINT AT 9,16;".";AT 13,16; 

" . " ; AT 11,3;"." ; AT 11,29;"." 

380 PRINT AT 6,16; AT 7,16;" 
WjAT 11,16; " 8 " ; AT 15,16;"1";AT 
16,16; *8P . 

390 FOR 1*9 TO 13 STEP 2 

400 PRINT AT 1,4;". ";AT 1,28;". 

N 

410 NEXT I 

420 FOR 1*8 TO 14 STEP 2 

430 PRINT AT I,3;"8T;AT I,29;"8 

N 

440 NEXT I 

450 PRINT AT 0,0;" " 

460 LET C=PEEK 16398+PEEK 16399 
*256+115 
470 LET P=C+495 
480 LET S*27 
490 SLOW 
500 GOTO 20 

m 
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Seduzido e abandonado. 



Esta e a historia do cavalheiro que comprou 
um microcomputador que ia resolver todos 
os problemas da sua empresa. 

O preyinho era bom e a con versa do 
vendedor, airaente. Poucos dias depois ele 
descobriu que o equipamento n&o resolvia 
todos os problemas (pelo contrario, criava 
alguns novos) e pior de tudo, ao voltar a loja 
onde tinha comprado, percebeu que ninguem 
entendia realmente do assunto. 

Em outras palavras, ele foi lamentavelmente 
seduzido e abandonado. Mas nem tudo esta 
perdido: basta consult ar a 
Microshop antes de comprar um 
microcomputador. 

A Mkroshop oust* antes de falar. 

Micros sao formidaveis, desde que sejam 
recomendados exatamente para as sua s 
necessidades. 



o 



Porisso nos fazemos todo tipo de 
perguntas sobre a sua atividade, e o 
tratamento das informaydes para podermos 
acelerar o processo de tomada de decisoes. 
Nos achamos que quanto mais soubermos 
sobre o seu problema, mais facil e completa 
sera a nossa soluyao 

A Mkroshop da opinioes sinceras. 

Trabalhamos com todas as m areas e modelos 
importantes e nao temos interesse em 
“empurrar” esta ou aquela marca. Assim, 
voce tern a certeza de receber 
sempre um opiniao independente. 

A Mkroshop resolve mesmo. 

Ao inves de um simples balconista bem- 
intencionado, nos atendemos voce com gente 
formada em Computer Science na 
Universidade de Nova York. 



Isso que dizer orientayao 
inteligente e correta na escolha do 
software mais adequado (tambem 
desen volvemos programas especificos para as 
sua s necessidades). Significa tambem colocar 
a sua disposiyao nossa longa experiencia com 
proftssionais liberais, empresa s de pequeno 
porte e multinacionais. E mais: damos 
treinamento completo na utilizayao dos 
micros e softwares. 

Venha conversar conosco. Nos podemos Ihe 
seduzir, mas nao vamos nunca Ihe abandonar. 

micro 

shop 

A loja dos micros inteligentes. | 



Sao Paulo: Al. Lorena, 652 - CEP. 01424 - Tel.: (01 1) 853.928F 
Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 - CEP. 50000 - Tel.: (081 ) 326. 1525 - Boa Viagem. 



Crie, modifique, apague, imprima e consu/te sempre que precisar o cadastro geral 
de seus dientes em seu micro da tinha TRS-80 



Cadastro 
de clientes 

Newton Braga Junior 



0 programs Cadastro Geral foi de- 
senvolvido para microcompu- 
tadores da linha TRS-80 com 
48 Kb de memoria. Carregado, ele nao 
ocupa mats de 10 Kb, mas,quando em 
execu^ao, aloca aproximadamente 30 
Kb para armazenamento das tabelas. 

Essas tabelas s3o o arquivo do cadas- 
tro, o qual tern capacidade de armazenar 
atd 100 registros (fichas) com a seguin- 
te constitutor 

COD — codigo;e um campo decontrol, 
onde pode ser definido um codigo de 
controle das fichas; 

NOME — nome do cliente; 

ENDERE^O - endere^o do cliente; 
TELEFONE - telefone do cliente; 
BAIRRO - bairro onde reside o cliente; 
CIDADE - cidade onde reside o cliente; 
ESTADO - estado onde reside o cliente ; 
CEP - c6digo de enderesamento postal 
da cidade. 

A tabela MS armazena o nome dos 
campos do registro, que s3o esses que 



acabamos de ver. Caso voce queira um 
novo tipo de registro, com nomes de 
campos diferentes desses apresentados, 
esta tabela MS devera ser alterada, jun- 
tamente com as linhas 610, 615, 620, 
625, 630, 635, 640, 645, 650, 655, 660, 
665, 670, 675, 680 e 685, pois nelas 
tambdm devem ser modificados os no- 
mes dos campos. 

AS OPf 6 es 

O programa i auto-exphcativo e pos- 
sui as seguintes op 90 es: 

1 - Carregar o arquivo do cassete ; 

2 — Gravar o arquivo no cassete; 

3 - Inserir registro (colocar novas fi- 

chas); 

4 - Modificar registro; 

5 - Apagar registro; 

6 - Consulta ao arquivo; 

7 - Listar o arquivo no video; 

8 - Listar o arquivo na impressora; 

9 — Gassificar o arquivo (colocar em 

ordem alfaWtica). 



O career t (seta para cima) € a sai- 
da de rotina do programa, ou seja, se vo- 
ce estiver para executar ou se estiver 
executando alguma rotina do programa 
e desejar voltar ao seletor principal, bas- 
ta pressionar essa tecla. Caso voce jaeste- 
ja no seletor principal, este d o meio de 
saida do programa. 

A consulta ao arquivo pode ser feita 
usando-se como referenda qualquer 
campo do arquivo. No caso de ser en- 
contrado mais de um registro com o 
campo igual ao do selecionado, o pro- 
grama o apresenta em ordem de pesqui- 
sa, dando ao final o numero de registros 
encontrados. 

Ao ser deletado (apagado) algum re- 
gistro, o programa entra automatica- 
mente em processo de classifica^o. 



A/ewron Duarte Braga Junior 4 programador 
COBOL , FORTRAN e BASIC. Atualmente 
exerce a fungSo de Gerente de Sistemas na lo * 
ja Rio Micro Computadores Ltda. 




dB/ MICRO 

AV. ALFONSO BOVERO 218 
SAO PAULO S.P. 
BRASIL 

TEl (0111263 071) 



HOTLINE dB/FONE 
PROGRAMA dB/I 
PROGRAMA dB/II 
JORNAL DO USUARIO dB/Clube 
TREINAMENTO BASICO dB/Treino B 
TREINAMENTO AVANQADO dB/Treino A 
TREINAMENTO EM DISCO dB/Treino D 
SEMINARIOS PARA EXECUTIVOS dB/seminarios 
APOIO A AUTORES INDEPENDENTES dB/Aplicativos 



SI) PORTE 
TOTAL 
AOS 

USLARIOSI 
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Cadastro Geral 

2 CLEAR 2000 

3 DIM CD$ ( 100) , NM| ( 100) ,ED|(100) ,TL$(100) ,BR|(100) ,CI|(100) ,ES|(100) 

, CE$ ( 100) , X ( 50) : DEFINT A-Z : POKE16396, 175i * 

5 M|(l)="COD# " : M$ (2) ="NOME - :M| (3) -"ENDERECO. . . " :M| (4) - 

"TELEFONE. . . "Ml ( 5) -"BAIRRO " :M| (6) -"CIDADE * : M$ (7) -"ESTADO. . 

. • . ” :M$ (8) = "CEP " 

7 Mll=STRINGl (63, 32) :M2|="PRESS < RETURN > PARA CUNTINUAR" :N=0 : D=0 
10 GOSUB3000 :PRINT#150, "BANCO DE DADOS"; 

12 PRINT#336," (♦) — > SAIDA DE ROTINA" ;#397 , "1 ==»> CARREGAR ARQUIV 
O DO CASSETE" ;#461, "2 — > GRAVAR ARQUIVO NO CASSETE" ;# 525, "3 — > C 
OLOCAR REGISTRO" ;#589, "4 — > MODIFICAR REGISTRO" ;#6 5 3, "5 -==> DELET 
AR REGISTRO"; 

13 PRINT#717,"6 — > CONSULTAR ARQUIVO" ;#7 81 , "7 — > LISTAR ARQUIVO 

( CRT )";#845,"8 — > LISTAR ARQUIVO ( PRINTER )"?#909,"9 — > CLASS 
IF ICAR ARQUIVO"; 

16 F0RI=1T031 :POKE16333+I , I : NEXT: FORI =1T0100 : NEXT : II=INKEY| :IFI|="", 
F0RI=1T031 :P0KE16364-I , I sNEXT : FORI-lTOlOO :NEXT:GOT016 ELSE IFASC(I$) 

=91 ,CLS :END ELSE P=VAL ( I I) : IFP<1 , 16 

18 ON P GOSUB100,200, 300,400,500,600,700,800,900:GQT010 
100 GOSUB3000 :PRINT#146, "CARREGAR ARQUIVO DO CASSETE"; 

102 PRINT#448, "POSICIONE A FITA E PRESS < RETURN > " ; : FORI*lTOl00 :NEX 
T: I|=INKEY| s IFI$="" ,PRINT#448 , STRING! (36,32) ; : FORI -1TO10 0 : NEXT: GOTO 1 
02 ELSEIFASC (I|) =91, RETURN ELSEIFASC ( 1$) =13, 104 ELSE 10 2 
104 PRINT#448 ,Ml| ;#448 , "CARREGANDO O NUMERO DE REGISTROS" ;: INPUT#- 1 , 
N:PRINT#448,M1|;#448, "CARREGANDO REGISTRO ==*> " ; :FORI = lTON: PRINT#47 
4,1?: INPUT#-1 , CDl (I) ,NM|(I) ,ED$(I) ,TL|(I) ,BR|(I) ,CI$(I) ,ES|(I) ,CE|(I 
) :NEXT: PRINT#448 , Mil ;#448 , "ARQUIVO NA MEMORIA" ? 

106 PRINT#974,M2|; :FORI=lTOlOO :NEXT: I|=INKEY| : IFIl-"" ,PRINT#974 ,STRI 
NG$ (32,32) ; :FORI=lTO100 :NEXT:GOTO106 ELSEIFASC ( I $) =13, RETURNELSE 106 
200 GOSUB3000:PRINT#146, "GRAVAR ARQUIVO NO CASSETE"; 

202 PRINT#448, "POSICIONE A FITA E PRESS < RETURN > " ; :FORI=1T0100 :NEX 
T: I|=INKEY| : IFI|="" ,PRINT#448,STRING| (36,32) ; : FORI =1T01 00 : NEXT: GOT02 
02 ELSEIFASC(H) -91, RETURN ELSEIFASC ( 1$) =13, 204 ELSE202 
204 PRINT#448,Ml|;#448, "GRAVANDO O NUMERO DE REGISTROS" ; :PRINT#-1,N: 
PRINT#448,M1|;#448, "GRAVANDO REGISTRO ===> "? :FORI*lTON :PRINT#472, I; 

: PRINT#- 1 , CDl (I) ,NM|(I) ,ED|(I) ,TL$(I) ,BR|(I) ,CI$(I) ,ES|(I) ,CE|(I) :NE 
XT: PRINTS 4 8, Mil; ©4 4 8, "ARQUIVO GRAVADO"; :GOTO106 

300 IFN=100, 396 ELSEGOSUB 3000 : PRINT#150 , "COLOCAR REGISTRO"? 

301 A=0:FORB=384TO832STEP64:A=A+l:PRINT#B,M|(A) ? :NEXT B 

302 FOR B=N+1T0100:PRINT#167,B; 

311 PRINT#395, ? : Jl|=" ": INPUTJll :GOSUB 399 : IFC=1 , RETURN ELSE IFJ1$<>" 
",CD$(B)=J1I ELSECDl (B) =" " 

312 PRINT ©4 4 8 ,M$(2) ?:J1| = " ": INPUTJll :GOSUB399 : IFC=1 , RETURN ELSE IFJ 
1|<>" ",NM|(B)=J1| ELSENMl (B) =" " 

313 PRINT#512,M|(3) ? :J1|=" ": INPUTJll :GOSUB399 : IFC*1 , RETURN ELSE IFJ 
1|<>" ",ED|(B)=J1| ELSEEDl (B) =" " 

314 PRINT#576 ,M|(4) ?:J1| = " ": INPUTJll :GOSUB399 : IFC-1 , RETURN ELSE IFJ 
1|<>" ",TL|(B)=J1| ELSETLl (B) =" " 

315 PRINT#640,M|(5) ?:Jl|=" ": INPUTJll :GOSUB399 : IFC=1 , RETURN ELSE IFJ 
1|<>" ",BR|(B)=J1| ELSEBRl (B) =" " 

316 PRINT#704 , Ml ( 6) ? :Jl| = " ": INPUTJll : GOSUB399 : IFC-1 , RETURN ELSE IFJ 
1|<>" ",CI|(B)=J1| ELSECII (B) =" " 

317 PRINT#768,M|(7) ; :J1|=" ": INPUTJll :GOSUB399 : IFC=1 , RETURN ELSE IFJ 
1|<>" ",ES|(B)=J1I ELSEESl (B) =" * 

318 PRINT#832,M|(8) ;:Jl|=" ": INPUTJll :GOSUB399 : IFC-1 , RETURN ELSE IFJ 
1|<>" ",CE|(B)=J1I ELSECEl (B) =" " 

395 FORK-39 5T0843STEP64: PRINT#*, STRINGK 5 2, 32) ; :NEXT:NEXT B 

396 GOSUB3000 :PRINT#135 , "NAO EXISTE ESPACO NO ARQUIVO PARA OUTRO REG 
ISTRO"; :GOTOl06 

399 IFJl|="t", C-l :N=B-1 : RETURN ELSE C-0 : RETURN 

400 IFN=0 , 450 ELSEGOSUB 3000 :PRINT#1 SO "MODIFICAR REGISTRO"; 

401 PRINT#448, "QUAL O NUMERO DO REGISTRO A SER MODIFICADO "?:INPUT R 
Ml: IFRM|"f", RETURN ELSE R=VAL(RM|) :IFR<10RR>N,PRINT#448,M1|; :GOT0401 

ELSEGOSUB 3000 

402 PRINT#136 , "INSERIR AS MODIFICACOES NOS CAMPOS DESEJADOS* ; :A=0 : FO 
RB=384T0832STEP64:A=A+1:PRINT#B,M|(A) ; :NEXT 

411 PRINT#396, ; :K|=" ": INPUTKl :PRINT#4 48 ,M| ( 2) ? :IFK|-"",412 ELSECDl ( R 

)-K| 

412 PRINT#460, ? :K|="* : INPUTKl : PRINT#5 12 , Ml (3) ; :IFK|="",413 ELSENMl ( R 
)=K| 

413 PRINT#524,?:K|="":INPUTK|:PRINT#576,M|(4) ? :IFK|="",414 ELSEEDl ( R 
)=K| 

414 PRINT#588,?:K|="":INPUTK|:PRINT#640,M|(5) ; :IFK|-"",415 ELSETLl ( R 
)=K| 

415 PRINT 652,;:K|="":INPUTK|:PRINT#704,M|(6) ; :IFK|="",416 ELSEBRl (R 
)«K| 

416 PRINT#716, ? : K|="" : INPUTKl : PRINT#? 68, Ml (7) ; : IFK|="",417 ELSECII (R 
) »K$ 

417 PRINT#? 80 , ; :K|=" " : INPUTKl :PRINT#832 ,M| ( 8) ? : IFKI-"" , 418 ELSEESl ( R 
) — K| 

418 PRINT#844,; :K|="": INPUTKl :IFK|="", 4 20 ELSE CE|(R)=K| 

420 F0RF=396T0844STEP64 :PRINT#F, STRINGI (51, 32) ; : NEXT 

430 PRINT#396 , CD| ( R) ;#460,NM|(R) ;#524,ED|(R) ;#588,TL|(R) ;#652,BR| (R) 

;#716,CI|(R) ;#780,ES|(R) ;#844,CE|(R) ;#129 , STRINGI (61, 32) ;#140, "CONST 

TITUICAO AT UAL DO REGISTRO #"; R; : GOTO 10 6 

450 GOSUB3000:PRINT#150, "ARQUIVO INEXISTENTE" ; :GOTO106 

500 IFN=0 , 450 ELSEGOSUB 3000 : PRINT#146 , "DELETAR REGISTRO"; 

505 P RINT#4 48, "QUAL O NUMERO DO REGISTRO A SER DELET ADO ";:INPUTDR|: 
IFDRl="f", RETURN ELSEDL=1 : D=VAL(DR|) :IFD<10RD>N,PRINT#448,Ml|; :GOT05 
05 

510 CDI(D)-" * :NM| (D) *" ":ED|(D)=" ":TL|(D)-" ":BR|(D)=" ":CI|(D)-" 

" :ES| (D) -" ":CE|(D)=" " :PRINT#448 ,M1| ;#448, "REGISTRO >"D"< DELETADO" 

; :PORY=lTO1500 :NEXT:PRINT#448,Ml|;#448, "AGORA O ARQUIVO SERA CLASSIF 
ICADO" ? : FORY-1TO2000 :NEXT :GOSUB912 : RETURN 

600 IFN-0,450 ELSEGOSUB 3000 :PRINT#150 , "CONSULTA AO ARQUIVO"; 

SB 



□ EMOEPiECQ 
0E TOOK DS 
M/CP.Q5 

Em nossa loja somos todos 
Pro-informatica. Pro-didatica e 
Pro-eletronica 




sLsTNNICA 

PRO eletrOnica 

COMERCIAL LTDA. 

Rua Santa Efigftni*. 568 - CEP 01 207 - Slo Paulo - SP 
Tel* 220-7888 — 221 9055 - Telex (Oil) 34901 - POEC 
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CADASTRO DE CLIENTES 



O®®' 



,OO«»*l T0 * 



MICROS, 

VIDEOS, GAMES & CIA. 

Computadores: 
Polymax, Unitron, Prolbgica, 
Micro Digital, Sysdata. 



★ OFERTA ESPECIAL ★ 

“ MAXXI ” 

Videos: Philco e Sharp 

Televisores Sanyo 



Video Games: Dynacon, 
Atari. 

OFERTA: Cartuchos para Atari 
a prego de custo. 
Suprimentos; Fitas, Disquetes, 
Formularios. 



★ Super Oferta * 

Disquete Memorex 5 1/4- Cr$ 5.000,00 
CURSOS: Basic I, Basic II 

InscrigOes Abertas 



Rua Estados Unidos, 2141 
Tel. 852-8290 / 257*3852 / 231-1173 



C W B U G 

MONITOR E DISASSEMBLER 



r i 
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rWR MICROCOMPUTADORES LTDA 
W D CA(XA POSTAL - 3447 
80 000 -CURITIBA -PR 



601 A=0:FORB=406TO854STEP64:A=A+l:PRINT©B,Ml (A) ; "> "A" <";:NEXT 

602 PRINTS 75, "SELECIONAR O CAMPO PARA CONSULTA" ; : FORI*lTOl00 :NEXT: I 
|=INKEYl : IFI I*" " , PRINT©9 75 , STRINGl ( 32,32) ; :FORI*lTOlOO :NEXTrGOTO602 
ELSE IFASC( I I) *91, RETURN ELSEP-VAL ( 1$) s IFP<lORP>8, 602ELSEGOSUB3000 

603 ON P GOSUB 610 , 620 , 6 30 , 640 ,650 , 660 , 670 ,680 : RETURN 

610 X*0 : P RI NT©1 46," INTRODUZ I R : COD#" ;©4 48 , "===> INPUTII :GOSUB69 9 : 

IFC“1, RETURN ELSEFORI-1TON : IFCD$ ( I ) *1$ , X*X+1 : X ( X) *1 
615 NEXT: IFX=0 , Al="CODIGO" :GOTO690 ELSE695 

620 X=0:PRINT©146, "INTRODUZIR: NOME " ;©448 , "=*=> " ; : INPUTII :GOSUB699 : 

IFC a l , RETURN ELSEFORI=lTON : IFNMl ( I ) -I $ , X=X+ 1 : X ( X) =1 
625 NEXT: IFX=0 , Al="NOME" :GOTO690 ELSE695 

630 X=0:PRINT©146, "INTRODUZIR: ENDERECO" ;©448 , "=*=> INPUTII : GOSUB 

699 : IFC=1 , RETURN ELSEFORI=lTON : IFEDl ( I ) =1 $ , X=X+1 : X(X) =1 
635 NEXT: I FX=0,A|= "ENDERECO" :GOTO690 ELSE695 

640 X*0 :PRINT©1 46 , "INTRODUZIR: TELEFONE";©448 , "*==> INPUTII : GOSUB 
699 :IFC»1, RETURN ELSEFORI-1TON : IFTL$ ( I ) = 1 I , X=X+1 : X(X) -I 
645 NEXT: IFX=0 , Al="TELEFONE" :GOTO690 ELSE695 

650 X=0:PRINT©146, "INTRODUZIR: BAI RRO" ;©448 , "===> INPUTIS :GOSUB69 
9: IFC=1, RETURN E LSE FORI =1 TON : IFBR$ ( I ) *1$ , X=X+1 : X (X) =1 
655 NEXT: IFX=0, Al="BAIRRO" :GOTO690 ELSE695 

660 X=0:PRINT©146, "INTRODUZIR: CIDADE" ;©448 , "===> INPUTIS :GOSUB69 
9 : IFC=1 , RETURN ELSE FORI =1 TON : IFCI $ (I) =1$, X-X+l :X (X) -I 
665 NEXT: IFX=0 , Al="CIDADE" :GOTO690 ELSE695 

670 X=0:PRINT©146, "INTRODUZIR: ESTADO" ;©448 , "=«*> ";: INPUTII : GOSUB69 
9 :IFC=1, RETURN ELSEFORI-1TON : IFESl ( I ) = 1 $ , X»X+1 : X (X) = 1 
675 NEXT : IFX=0,A$= "ESTADO" :GOTO690 ELSE69 5 

680 X-0:PRINT©146, "INTRODUZIR: CEP" ;©448 , "=«=> INPUTII :GOSUB699: I 
FC=1, RETURN ELSEFORI-lTON : IFCEl ( I ) = I I , X=X+1 : X (X) *1 
685 NEXT : IFX*0 , Al="CEP" :GOTO690 ELSE695 

690 GOSUB 3000 :PRINT©66 ,A| " : "II ;©194 , "DIGITACAO ERRADA OU NAO CONSTA 
NO ARQUIVO"; :GOTOl06 

695 GOSUB3000 :PRINT©150 , "REGISTRO # :A*0 : F0RI=384T0832STEP64 : A-A+l : 
PRINTS, Ml (A) ? :NEXT 

696 FORJ=lTOX:PRINT©396,CDl(X(J) ) ,-©460, NM: X(J) ) ;©524 ,EDI ( X ( J) ) ;©588 

, TLl (X ( J) ) ;©652,BR|(X(J)) ;©716,CI| (X(J) ) 780,ESI(X(J) ) ;©844 ,CE| ( X ( J 
)) ;©160,X(J) ; 

697 PRINT©974,M2|; : FORA-lTOlOO :NEXT: I|=INKEY$ : IFI|=" " , PRINT©974 ,STRI 
Gl ( 32 , 32) ; :FORA=1TO100 :NEXT :GOT0697 ELSEIFASC ( II) =13,F0RA=396T0844ST 
EP64 : PRINT©A, STRINGl (51,32) ; : NEXT A ELSEIFI|="P" ,GOSUB750 :G0T0697 ELS 
El FI !="♦", RETURN ELSE697 

698 NEXT : GOSUB 3000 :PRINT©1 46 , X"REGISTRO (S) ENCONTRADO (S) " ; : GOTO 

106 

699 IFII="t",C=l:RETURN ELSEC=0 : RETURN 

700 IFN=0 , 450ELSEGOSUB3000 :PRINT©146 , "LISTAR ARQUIVO ( CRT )"; 

701 PRINT©384 ,"F - AVANCA LISTAGEM" ; ©448 , "T - RETROCEDE LISTAGEM" ;©5 
12, "P - IMPRIME REGISTRO APRESENTADO" ; 

702 PRINT©974,M2|; :FORA=lTO100 -.NEXT: I|=INKEY| :IFII="" , PRINTS 74 ,STRI 
NGI (32,32) ; :FORA=1T0100:NEXT:GOT0702 ELSEIFASC(II) =91 , RETURNELSEIFAS 
C(II) =1 3 , GOSUB3000 ELSE702 

705 PRINT©150, "REGISTRO # : A=0 : F0RI = 384T0832STEP64 :A=A+1 : PRINTS , Ml 

(A) ; :NEXT:J=lGOTO720 

715 I|=INKEY|:IFII="",715 ELSEIFI l="F" , J=J+1 :GOTO720 ELSEIFI|="T" , J= 

J-l : GOTO720 ELSEIFII="P",GOSUB750 :G0T0715 ELSEIFASC (II) =91, RETURN EL 
SE715 

720 IF J>N, J-J-1.-G0T0715 ELSEIFJ'-l , J-J + l :G0T0715 ELSEGOSUB730 : PRINT© 

396 , CDl ( J) ;©460,NM|(J) ;©524,EDl(J) ;©588,TLl(J) ;©652,BR|(J) ;©716,CI|(' 

J) ;©780,ES|(J) ;©84 4 , CEl ( J) ;©160,J; :G0T0715 

730 F0RI=396TO844STEP64 :PRINT©I ,STRING| (51,32) ; :NEXT : RETURN 

750 LPRINTSTRINGI (80,42) sLPRINTTAB ( 34 ) "BANCO DE DADOS" :LPRI NTT AB (28) 

"LISTAGEM DO REGISTRO # "J : LPRINTSTRINGI (80, 42) :LPRINT 

760 LPRINTTAB ( 10) Ml ( 1) CDl ( J) : LPRINTTAB ( 10) Ml ( 2) NM| ( J) : LPRINTTAB ( 10 ) M 

I ( 3) EDI ( J) : LPRINTTAB ( 10) Ml ( 4 ) TLl ( J) : LPRINTTAB ( 10) Ml ( 5) BRl ( J) : LPRINTT 

AB(10)M|(6)CI|(J) : LPRINTTAB ( 10) Ml ( 7) ESI ( J) : LPRINTTAB ( 10) M| ( 8) CEl (J) : 

RETURN 

800 IFN=0 ,450 ELSE GOSUB 3000 

801 PRINT3146, "LISTAR ARQUIVO ( PRINTER ) " ;©5 12 , "LISTANDO REGISTRO = 

»»>". sCL=48:CP»0 

805 FORX=lTON : PRINT©5 35 , X; : IFCL=48 ,GOSUB880 

815 LPRINTTAB (0) "X" =" ;TAB ( 10) Ml ( 1) CDl ( X) : LPRINTTAB ( 10) M| ( 2) NMl ( X 
) : LPRINTTAB (10) Ml (3) EDI (X) : LPRINTTAB ( 10) Ml ( 4 ) TLl ( X) : LPRINTTAB ( 10) Ml ( 

5) BRl (X) : LPRINTTAB (10) Ml (6) Cl I (X) .-LPRINTTAB ( 10) Ml (7) ESI ( X) : LPRINTTAB 
(10) Ml (8) CEl (X) :CL=CL+8 :LPRINT :NEXT 

850 LPRINTCHRl (140) ; : FORW=lTO10 : LPRINTTAB ( 2 ) STRINGl (30,42) " FIM DA L 
ISTAGEM "STRINGl (30,42) :NEXT:PRINT©512 , Mil ,-©512 , "LISTAGEM COMPLETADA 
: GOTO106 

880 LPRINTCHRl (140) ; :CL=0 :CP*CP+1 : LPRINTSTRINGI (80,42) : LPRINTTAB ( 33) 
"BANCO DE DADOS" :LPRINTTAB( 30) "LISTAGEM DOS REGISTROS "; STRINGl ( 19 , 32 
) ; " PAG . " ;CP : LPRINTSTRINGI (80,42) : LPRI NT : RETURN 
900 IFN=0 , 450 ELSEGOSUB3000 :PRINT©150, "CLASSIFICAR ARQUIVO"; 

912 K=0 : 1=0 

915 PRINT©512, Mil 1=1+1 

916 IFCDl ( I) <» CD| (1+1) ,925 

917 T1|=CD| ( I) :T2|=NM| ( I ) :T3|=ED|(I) :T4|=TL|(I) :T5|=BR|(I) :T6|=CI|(I 
) :T7|=ESI(I) :T8|=CE|(I) -.GOSUB934 

921 CDl (I+l) =T1| :NM| (1+1) =T2|=EDl ( 1+1) *T3| :TLI ( 1+1) *T4| :BR| ( 1+1) =T5| 

:CI| ( 1+1) =T6I :ES| (1+1 ) =T7| :CEl (1+1) =T8|:K=1 

925 PRINT©512, "CLASSIFICANDO ARQUIVO. REGISTRO #"; I IFI <* (N-2 

),915 

930 IFK<>0 ,912 ELSEIFDL=1 ,PRINT©512 , Mil ;©512 , "ELIMINANDO REGISTRO DE 
LETADO"; ELSE935 

9 32 N=N- 1 : FORI =1 ION : GOSUB9 34 :NEXT : DL*0 :GOT09 35 

934 CDl ( I ) =CD| (I+l) :NMl ( I ) =NM| (I+l) :EDl (I ) =ED| ( I+l) :TL| (I ) =TL| (I+l ) : 

BRl ( I) =BR| ( I+l) :CI|(I)=CII(I+1) :ES| (I) *ESI (I+l) :CE| (I) =CE| (I+l) : RETU 
RN 

935 PRINT©5 1 2 , Ml I ; 512, "ARQUIVO CLASSIFICADO" ; : GOTO106 

3000 CLS :F0RI=15361T015421 : POKE I , 11 : POKEI+256 , 21 : NEXT : FORI =15424T015 ■ 

552STEP64:POKEI, 210 :POKEI+62, 205 :NEXT: RETURN: A 
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MAIS SUCESSO RARA VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc£ o mais moderno ensino 
tecnico programado e desenvolvido no Pats. 



CURSOS Df APERff IIJOAMfNTO 






[• 9 }M Avan ids SSo Paulo. 718 - Fone 104321 23-9674. 

LJbJLM I CAIXA POSTAL 1642 - CEP 86100 - Londrtna - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDeNCIA 

Solicito o mais ripido pots fvel informagdes sem compromisso sobre o 
CURSO de a 

Noma. 

Rua 

Cidada 

Bairro. CEP 



Sao mats de 140 apostilas com mformagdes completas e sempre 
atualizadas, Tudo sobre os mais revolucionirio CHIPS. E voce 
recebe. alem de uma solida formag§o teorica, KITS elaborados 
para o seu desen volvi men to pritico Garanta agora o seu futuro 



CEDM 20 KIT 
de Ferramentas. 

CEDM 78 KIT 
Fonte de Alimentagao 
5v/1 A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
I Z80 ASSEMBLER 



MO 



gflfla as 



KIT CEDM Z80 
BASIC Cientlfico. 

KIT CEDM Z80 
BASIC Simples. 

Gabanto de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 



Este CURSO. especialmente programado, oferece os 
fundamentos de Linguagem de Pr ogramagio que domma o um verso 
dos microcomputadores. Dmimicoe abrangente, ensma desde o BASIC 
bisico ate o BASIC mats avangado. inclumdo nogoes bis teas sobre 
Mampulagao de Arquivos, Ticnicas de Programagio, Sistemas de 
Processamento de Dados. Teleprocessamento. Multiprogramagao e 
Ticmcas em Linguagem de Miquma, que proporcionam um grande 
conhecimento em toda a ire a de Processamento de Dados 



Mitodos novos e iniditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova lig4o, apostilas ilustradas 
ensmam tudo sobre Amplificadores, Caixas Acusticas. Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas. Capsulas 
e Fonocaptadores. Microfones, Sonorizagao, InstrumentagSo de Medidas 
em Audio. Ticnicas de Gravagao e tambim de ReparagSo em Audio. 



W 






,7 






CEDM 1 • KIT de Ferramentas. CEDM 2 • KIT Fonte de Alimentagio 
♦ 15-15/1A. CR)M 3 • KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM 5 KIT Pri-amplificador 
Estireo CEDM 6 KIT Amplificador Estereo 40w 



Voce mesmo pode desenvolver um ritmo prbprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado ficil. E 
para esclarecer qualquer duvida, o CEDM coloca 4 sua disposigdo uma 
equipe de professores sempre muito bem acessorada. Alim disso, voci 
recebe KITS preparados para os seus exercfcios priticos. 

Agil, moderno e perfeitamente adequado 4 nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condigdes ideais para o seu 
aperfeigoamento profissional. 











Defenda-se dos tiros inimigos e ao mesmo tempo mire pri valer: mostre que 
voce 6 um craque da artiiharia a laser com este jogo para a linha Sinclair 



Laser Base: 
o tiro do canhao 

Armando Neves 



O jogo Laser Base, similar ao jogo 
de flipper deste nome, roda nos 
equipamentos da linha Sinclair e 
£ constituido de dois canhdesro inimigo 
(controlado pelo computador) e o do jo- 
gador. 0 objetivo deste 6 destruir o maior 



numero de inimigos possivel, atirando 
com seu laser e evitando acertar os me- 
teoros. 

Para mover seu canhao, voce devertf 
utilizar as tedas 5 (cursor para a esquer- 
da) e 8 (cursos para a direita), disparan- 



do com a tecla 0. Sao 50 os niveis de di- 
fi culdade e, se o canhao inimigo acertar 
o seu tres vezes, ojogo acaba. 

O programatemaestrutura semelh an- 
te a dos outros publicados. A parte em 
Assembler pode ser digitada com o au- 
xflio do Monitor Assembler publicado 
em MICRO SISTEMAS numero 23. Sao 
cinco blocos de dados hexadecimais, 
que fundonam da seguinte maneira: 

• Bloco 1 (16534) - move o canhao ini- 
migo para o lado mais pr6ximo do joga- 
dor; 

• Bloco 2 (16600) - calcula e atira so- 
bre o jogador; 

• Bloco 3 (16666) - move e faz atirar o 
laser do jogador ; 

• Bloco 4 (16764) - movimenta os me- 
teoros; 

• Bloco 5 (16857) - sub-rotina de espe- 
ra, servindo tamWm para apagar os tiros. 

Entre primeiro com os blocos em As- 
sembler e, logo depois, com a listagem 
BASIC. Bons tiros! 



Armando Neves 4 estudante de E n gen h aria na 
UFRJ e Informdtica na PUC, a usudrio de um 
TK82-C. 




16534 



16600 



16666 



2A 


84 


40 


01 


B5 


02 


B7 


ED 




00 


06 


15 


B7 


ED 


52 


7E 


FE 


42 


ED 


5B 


82 


40 


D5 


B7 


ED 




80 


20 


06 


36 


8E 


10 


F4 


18 


5 i 


7C 


FE 


00 


20 


11 


El 


23 




12 


FE 


B4 


28 


0E 


36 


97 


CD 


7E 


FE 


76 


28 


19 


36 


BB 


22 




Fl 


41 


36 


BB 


21 


8E 


40 


34 


82 


40 


2B 


36 


80 


18 


OF 


El 




CD 


Fl 


41 


CD 


D9 


41 


18 


0A 


2B 


7E 


FE 


76 


28 


08 


22 


82 




















40 


36 


BB 


23 


36 


80 


18 


0A 




































16764 


2A 


86 


40 


06 


03 


C5 


01 


IE 




















00 


E5 


D1 


23 


1A 


ED 


B0 


12 


2A 


8A 


40 


23 


22 


8A 


40 


7E 




23 


23 


01 


A5 


00 


09 


Cl 


10 


FE 


D2 


DA 


1A 


41 


2A 


82 


40 




EC 


2A 


90 


40 


06 


03 


C5 


01 


06 


15 


11 


21 


00 


19 


7E 


FE 




IE 


00 


E5 


D1 


1A 


2B 


ED 


B8 


80 


20 


06 


36 


8E 


10 


F6 


18 




12 


2B 


2B 


01 


E7 


00 


09 


Cl 


14 


FE 


B4 


28 


10 


E5 


21 


8C 




10 


EC 


3A 


8C 


40 


FE 


9C 


4F 


40 


35 


El 


36 


97 


CD 


Fl 


41 




C8 


2A 


88 


40 


77 


0E 


64 


06 


36 


A6 


CD 


FI 


41 


CD 


D9 


41 




IE 


10 


FE 


0D 


20 


F9 


21 


92 


00 


00 


18 


06 












40 


34 


CB 


4E 


CA 


D8 


40 


36 




















00 


00 


C3 


96 


40 








2A 


84 


40 


DB 


FE 


FE 


2F 


20 




















0E 


2B 


7E 


FE 


76 


28 


08 


22 


16857 


2A 


OC 


40 


01 


2C 


03 


3E 


8E 


84 


40 


36 


A6 


23 


36 


80 


FE 




ED 


A1 


20 


03 


23 


36 


80 


78 


3B 


20 


0E 


23 


7E 


FE 


76 


28 




B1 


FE 


00 


20 


Fl 


C9 


00 


00 


08 


22 


84 


40 


36 


A6 


2B 


36 




0E 


C8 


06 


C8 


10 


FE 


0D 


20 


80 


FE 


3E 


C2 


7C 


41 


11 


21 




F9 


C9 












_ 
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Laser Base 


10 


REM . . 


. (80) . . . 


12 


REM . . 


. (60) . . . 


14 


REM . . 


. (92) ... 


16 


REM . . 


. (87) ... 


18 


REM . . 


. (42) ... 


20 


CLS 




22 


GOSUB 


500 


25 


PRINT 


U I ASI R HAS) ** 



8 of! Kristian 

Revendedores Autorizados 



[an DO NEVI 



30 POKE 16418,0 
40 LET A$ = "| 



50 

60 

70 

74 


FOR K=1 TO 4 
PRINT A$ 
NEXT K 

let 






76 


LET P=2 


80 


FOR K=1 TO 6 


90 


PRINT B$ (P TO );B$( TO P-1) 


;A$;A$ 


100 


LET P=P+2 


110 


NEXT K 


120 


PRINT AS 


140 


LET A=16514 


150 


PRINT AT 2,0; 


160 


GOSUB 300 


165 


PRINT "Q" 


170 


PRINT AT 23,16; 


180 


GOSUB 300 


185 


PRINT "Q" 


190 


PRINT AT 5,0; 


200 


GOSUB 300 


210 


PRINT AT 0,14; 


220 


GOSUB 300 


210 


POKE 16524,159 


240 


LET A=16528 


250 


PRINT AT 8,31; 


260 


GOSUB 300 


270 


POKE 16526,0 


280 


GOTO 340 


300 


POKE A, PEEK 16398 


310 


POKE A+l , PEEK 16399 


320 


LET A=A+2 


330 


RETURN 


340 


POKE 16418,2 


350 


RAND USR 16534 


360 


FOR K=1 TO 50 


370 


NEXT K 


380 


CLS 


390 


PRINT AT 8,9; " FIM DO JOGO" 


400 


PRINT AT 13,7; "NAVES ACERTA 


DAS: 


" ;PEEK 16526 


410 


PRINT AT 18,5; "QUER JOGAR N 


OVAMENTE ?";AT 18.5: BTira iwier.vf 




420 


IF INKEY$=" " THEN GOTO 410 


430 


IF INKEY$="S " THEN RUN 


440 


PAUSE 9999 


450 


STOP 


500 


PRINT AT 5,10; "LASER BASE" 


510 


PRINT AT 12,5; "ARMANDO LUIZ 


A. 1 


NEVES" 


520 


PRINT AT 19, 2; "NIVEL DE DIF 


ICULDADE ? (1/50)" 


530 


INPUT A 


540 


POKE 16828, A*2+10 


550 


CLS 


560 


RETURN 


600 


SAVE "LASER" 


610 


RUN f 



Rio do Janeiro 



RbckjWkxj do Ubono 25-A 
Rio d© Janeiro RJ 
CEP 20061 

Gochel 

R Dr ElJaick. 25 S/5 
Novo Fribufpo - RJ 
tel 22 42 Off 
VGC 

Am Brosil. 10 S/07 
Araruoma ■ RJ 
CEP 26970 

ENTOUVROS 

Av Ro Branco 156 t6neo 
Rode Janevo • RJ 

MCI 

Vise de Piraid. 303/217 
Rio de Janeiro RJ 
lei 267 8597 

Pernambuco 
Eletrbnica Isabel© 

R fbrlo Alegre 112 
Coruoru Pt 
CEP 55100 



Am Stqvjeira Campos. 838 

Merced • Ai 

tei (082)223 3979 

SOo Paulo 
lmar6s 

Am dos imares, 457 

SOo Paulo SP 

tei 614049 610946 

R°Boo°Vis»o. 314 • 3 # ondor 
SOoRjulo SP 
tel 35 7131 R/32 
Memocords 
R Amodor Bueno 855 
RibeirOo Preto SP 
tei (016)636 0586 



Fotopttco 

Alameda JuruO. 434 
SOotauto-SP 
lei 421 5211 

Rttz 

R Frei Caneca. 7 
Santos - SP 
tel 35 1792 
Compuleftand 
A/ Angdfcoa 1996 
SdoRxJo SP 
CEP 01228 

I kitrtjiii Pnliisrirn 

UVfOflO rOWOOfO 

R Aurora. 704 
SOotauto SP 
tei 221 6764 

RC Mlc roc omputodores 

Am Estooos Unrdoi 983 
Piroocaba SP 
tei 33 7018 

Rio Grande do Sul 



R Androdoi 1560 oaieria 
Malcon 518 Fbrto Alegre • RS 
tei 26 8246 

1H Santos 

f^a OtavK) Rocha, 41 
fbrto Alegre RS 
CEP 90000 

indro Center 

R Fionano Aaxota 1112 conj 
33/43 Santa Marla RS 
tei (055)221 7120 

Geremia Lida 

Am Julio de Castilhos 1872 
Caxias do Sul - RS 
tei 221 1299 

Nordomaa 

Am Julio de Castilhos 3240 

Caxias do Sul RS 

tei 221 3516 

Micromega 

R Julio de Castilhos 441 

1 0 ondor Navo Homburgo RS 

tel (0512)93 4721 



Bahia 

Oficcino 

Shopoing Center itoigora 
1/40 1° D*SO 
Salvador BA 
tei (071)248 6666 

Santa Catarina 
Supermicro Show 

R dosilheus 10 It 6 
FloronOpoHs SC 
tei 22 8770 

Pa rand 
Computlque 

Am Batei. 1750 
Curitiba PR 
tei 243 1731 

Modison 

Av Mol Deodoro. 311 
Curitiba PR 
tei 224 3422 

Minas Gerais 
Computronix 

R Sergipe 1422 
Beio Horizonte MG 
tei (031)225 3305 

Eletrorddio 

R Aquiies LobQ 441 A 
Beio Horizonte MG 
tei (031)222 8903 

Micro Pocos 

R Assts Figueiredo 1072 
Fbpos de Caidos MG 
tei (035) 721 1883 

Blow-Up 

Am Flonono Pe»xo*Q 396 
UbendndK3 MG 
tei 235 1413 235 7359 

Brasilia 

Digitec 

SCIN302 bl A lj 63 

Brasilia Df 

tei (061)2254534 



• CREDENQAM05 NCVOS REVBCEDORES FARA TODO O E 



mi«o 

nsuis 

Microcomputadores com credito direto ou leasing 



COLOR 64 Cr$ 425 000. x 2 (GRATIS APLICATIV0S) 
CP-200 Cr$ 110 000. x 2 (GRATIS 20 J0G0S) 
DGT-1000 CrS 268 000. x 3 (GRATIS 20 J0G0S) 
TK-85 CrS 115 000. x 2 (GRATIS 16 J0G0S) 
CP-500 CrS 690 000. x 2 (GRATIS 20 J0G0S) 

CURS0S DE BASIC COM ATE 100% DE DESC0NT0 
ENTREGA RAPIDA EM TODO BRASIL 



Aplicativos: controle de estoque: contabilidade: lolha de 
pagamento: contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade 

Temos toda linha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa. 



VISITE-N0S 0U S0LICITE UM REPRESENTANTE 



MICRONEWS COMERCIO E SERVIQOS LTDA 
R. Assembler 10 Gr. 3317 Ed Centro Candido Mendes 
Tel (021) 252 9420 CEP 20011/RJ 
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Precos sujeitos a alteracio 







Cade o ratinho que tava aqui? A cobra comeu\ E, se voce for esperto, 
comer a muitos mais, neste jogo para a I inha Apple, adaptavel a qualquer outro micro 



Cobra pega rato e... "6 



" V’t 



Claudio Esperanqa 



E muito diffcil fazer um jogo mteressante e simples ao 
mesmo tempo. Mais dificil ainda e faze-lo sem usar 
truques e macetes especiais. 0 jogo que apresento a 
seguir. no entanto, tenta atingir esses objetivos. Ele foi 
elaborado para computadores compativeis com o Apple, mas 
acredito que serd muito facil adaptd-lo para rodar em qualquer 
outro equipamento que disponha de linguagem BASIC. 

0 objetivo do jogo d muito simples: voce controla uma cobra 
(representada por uma sene de arrobas - @ ) que estd 
continuamente se movimentando na tela. Em algum lugar 
encontra-se um rato (representado por um asterisco - *). 0 
que voce deve fazer d guiar a cobra ate onde se encontra o 
rato , para que ela o coma. Fazendo isso, um ponto e anotado 
no seu score e a cobra aumenta de tamanho. 

Voce tern tres chances para comer quantos ratos puder. “Bom, 
mas qual e a dificuldade afinal?”, voce perguntana. O 
problema 6 que voce nao pode deixar a cobra colidir consigo 
mesma ou com as beiradas da tela. TamWm d fatal voce tentar 
fazer com que a cobra volte por sobre si mesma, isto d, se a 
cobra estd se movimentando para cima, voce nao pode 
comandd-la para andar para baixo. 

Os controles sao os seguintes: 

1 Imh •!••) 

A 

•»<••»<•) 3< >« (MM 

• ipmwm *•!■•) 



Para entrar com o programa num computador Apple ou 
similar, basta digita-lo tal como esta na listagem a seguir. Para 
adaptar o jogo para outros computadores, vale a pena dar 
algumas dicas: 

1) MX e MY sao, respectivamente, a largura da tela (40 
colunas) e o numero de linhas mcnos 2 (22 linhas). Se o seu 
display e diferente, basta modificar estes valores. 

2) HTAB n e VTAB n sao os comandos usados no 
Apple para posicionar o cursor numa determinada coluna 
(HTAB) de uma determinada linha (VTAB). 

3) A sub-rotina que vai da linha 70 atd a linha 76 simplcsmente 
verifica se foi apertada alguma tecla (6 para isso que servem 

os PEEKs). 

4) O comando INVERSE faz com que os caracteres impressos 
na tela apare^am pretos em fundo branco;o comando 
NORMAL serve para cancela-lo, voltando os caiacteres a 
aparecer brancos em fundo preto. Se o seu computador nao 
possui comandos semelhantes, retire-os e substitua o branco 
atribuido a SS na linha 100 por um carter qualquer que fique 
bem para delimitar as beiradas da tela. 



Cldudio Esperanqad formado em Engenharia Efetrdnica pel a UFRJ. Foi 
analista e professor do Nudeo de Computapao Eletrdnica desta mesma 
universidade durante quatro an os Atualmente trabalha como analista 
de sistemas na empresa de processamento de dados da Previdincia So- 
cial (Da tap rev) e 4 professor de BASIC no Instituto ORT. 



0 REM 

1 REM * JOGO DA COBRA * 

2 REM * POR* CLAUDIO * 

3 REM * ESPERANCA * 

4 REM ******************* 

5 CLEAR 

10 MX - 40* MY - 22 

20 DIM S7.<MX,MY> ,1X7. (4) , IYX(4) 

30 GOTO 100 

40 HTAB X* VTAB Y* PRINT S*|l8X< 
X,Y) * V* RETURN 

50 RX - INT ( RND (1) * (MX - 3) 

) ♦ 2*RY - INT ( RND (1) * 
(MY - 3) ♦ 2>* IF S7.(RX,RY> 

> O GOTO 50 

51 V - 6:S* - "*":X - RX*Y - RY* 

GOSUB 40* RETURN 

60 X * X I XX (K) : Y - Y ♦ IYX(K)* 
RETURN 

70 A * PEEK ( - 16304)i IF A < 1 

28 THEN RETURN 

71 B * PEEK ( - 16368)* ON A - 2 

00 GOTO 73,74,75,72,76 

72 RETURN 

73 D = 4* RETURN 

74 D - 2* RETURN 

75 D - 1* RETURN 



Jogo da cobra 



76 D - 3l RETURN 

80 HTAB It VTAB MY ♦ Is PRINT "R 

ATOS* M ;R, "CHANCES* "|C« t RETURN 

100 HOME tS* * " M *V « 5* INVERSE 

110 FOR X » 1 TO MX* Y - It GOSUB 
40* Y * MY* GOSUB 40* NEXT 

120 FOR Y - 1 TO MY s X - 1: GOSUB 
40* X - MX* GOSUB 40* NEXT 

1 30 NORMAL 

140 N - 4 1 L * 4 1 R * 0«C - 3* GOSUB 
80 

170 FOR I - 1 TO 4* READ I XX ( I ) * 
READ 1 YX ( I ) t NEXT 

180 DATA 1, 0,-1 ,0,0, 1 ,0,-1 

185 HX * 2* HY - 2* TX * 2*TY * 2*D 
- It GOSUB 50 

190 GOSUB 70* X » HXtY - HYtS* - 
"®" s V * D* GOSUB 40 



191 K - D* GOSUB 60* HX * X*HY - Y 

200 IF N > 0 THEN N - N - 1* GOTO 
300 

210 K - SX (TX , TY ) t X - TXtY - TYiS 

♦ * V - O* GOSUB 40 

220 GOSUB 60* TX - X*TY * Y 
300 IF SX (HX ,HY) - 0 GOTO 190 
310 IF SX (HX ,HY ) - 6 THEN PRINT 

CHR* (7) ; s L - L ♦ 4*N - 4*R 
- R ♦ Is GOSUB 50* GOSUB 80 

* GOTO 190 

320 FOR 1*1 TO 10* PRINT CHR4 
(7) ; s NEXT tC - C - 1* GOSUB 
80* IF C > O THEN GOTO 350 
330 HOME * INPUT M QUER JOGAR NOV 

AMENTE (S/N) ? ";A$* IF LEFT $ 
(A*,l> = "S" THEN GOTO 5 
340 PRINT "ADEUS !! "* END 
350 K » SX (TX , TY) * X * TX*Y - TY*S 

s * M "*v * o 

360 GOSUB 40* GOSUB 60 *K « SX ( X , 

Y) * IF K < 5 AND K > 0 GOTO 
360 

370 X * RX * Y - RYtS* - M M tV * 0* 
GOSUB 40 

380 N » LiD * 1* GOTO 185 ■ 
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6 uma m&quina de 
escrever eletr6nica 
introdu^ao tao avangada, mas 

automdtica tao avangada, que 

do pop#i consegue ser mais 

simples que a sua maquina 
de escrever. 

Como 6 que pode? 

E que a Remtronic 2000 
6 o resultado da mais 
revoluciondria tecnologia 
Remington, que veio tomar 
o trabalho da secretdria 
mais ficil, pratico e ripido. 
A Remtronic 2000 faz coisas 
que voce nem imagina. 

• Ela coloca 

automaticamente o papel na 
posigao inicial da 
I escrita. 

I • Faz o alinhamentc 
I automatico 
I a mar gem direita. 

I • Gragas ao sistema 
I de "margarida" 
Tabulador decimal intercambiavel, 

automatico voce pode trocar de 




tipos sem sujar as 
maos e sem perder tempo. 

• A Remtronic 2000 6 a 
unica que tern em seu 
cartucho a fita de 
impressao e a fita corretiva, 
que jd vem embutida. 

• Voce pode 
escolher entre 
4 formas de 
escrita: normal, 
negrito 
normal 
sublinliado , 
ou neg rito sublinhado. 

E o sublinhado 6 
simultaneo. 

• Ela pode apagar 
automaticamente uma linha 
inteira. 

• Seus dedos podem ser tao 
dgeis quanto 
seu raciocinio, 
que a 
Remtronic 
acompanha. 
Ela e veloz 



Sublinhado 

simultdnoo 




xxxx 



Tecla do 
repeti^ao 




Tecla 

polivalente 



I 

fl pensamento, pode 
■ hater ate 17,5 
*0 caracteres por 
segundo! 

• Tem memoria de 
elefante. Sabe de 
cor todos os ajustes que 
voce fixou. A Remtronic 
2000 tem tanta novidade, 
mas tanta novidade, que 
nSo da pra contar aqui. 

Mas a melhor delas e que 
agora ela tamhem podera 
ser usada como 
terminal de 
computador, com o 
uso de um interlace 
apropriado. 
Remtronic 2000. 

Tao completa. Tao 
simples. ( 



Negrito 

automatico 



como um 




R€m'rnU(o)[n]D(g2000 

A POLIVALENTE DA 
REMINGTON. 




r^ROmnccon 

SEMPRE UMA NOVA I0EIA 








Rebata a bola com precisao, mas nao se preocupe em ganhar um set. Neste jogo para 
a I inha TRS-80 (III) voce usari a raquete para demo Hr os blocos a sua t rente 



Bola demolidora... 
rebata essa! 

Luiz Gonzaga de Alvarenga 



E ste £ um jogo capaz de distrair tanto adultos quanto 
cnan^as por horas a fio. Nele, uma bola 6 rebatida 
dentro de um campo com o objetivo de demolir uma 
sdrie de paxedes paralelas. A demoli^ao 6 efetuada bloco a 
bloco, havendo um numero limitado de bolas para fazer isto. 
Existem quatro niveis de dificuldade, do mais facil para o mais 
diffcil. A dificuldade 6 tanto maior pelo aumento do numero 
de paredes (com o conseqiiente aumento de blocos a serem 
demolidos) quanto pela diminui^jfo do numero de bolas. 
Atem disso, o tamanho da raquete 6 varidvel e a velocidade da 
bola nSo 6 constante (cada bola tern uma velocidade 
diferente). 

Outro atrativo do jogo 6 que ele possui rotina de som. Esta 
rotma 6 pr6pria para o BASIC disco, mas pode ser modificada 
para o BASIC residente. Para isto, basta trocar o conteudo da 
linha 820 por: 

820 Z 1=127 : POKE 16 526 ,235s POKE 
16527, Zl:Z=256*Zl+235 

e gravar o programa em fita cassete. 

Este programa foi publicado, original men te, na revista 
norte-amencana 80 MICRO. Esta versao, no entanto, aldm de 
traduzida, foi modificada e aperfei^oada (a versfo original n§o 
possui, por exemplo, mais que um nivel de dificuldade). 

O programa, embora escnto em BASIC, tern um bom 
desempenho, inclusive no tocante a velocidade. As teclas que 



controlam a raquete sao as setas para cima e para baixo. Se, 
ap6s come 9 ado o jogo, ela nao aparecer, basta apertar a tecla 
da seta para baixo. 




Luiz Gonzaga de Alvarenga 6 tScnico em Teleco muni canoes, trabalhan * 
do na Embratel em GoiSnia . onde reside. 




SUPRIMENTO E COISA SERIA 



• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 

• Fita Magndtica 600.1 200 e 2400 P4s 

• Fita CARBOFITAS p/lmpressoras: Globus M 200 — B 300/600 

• Fita p/lmpressoras: Elebra. Digilab. Diablo. Centronicetc 

• Cartucho Cobra 400 

• Pastas e Formuiarios Contmuos 



Discos Magneticos: 5 Mb. 16 Mb. 80 Mb etc 
Diskettes: 5 1/4. e 8 Poiegadas — Simples e Dupia Face 

ETIQUETAS PIMAC0 - PIMATAB 



AV PRESIDENTE VARGAS. 482 • GR 207 - TELS (021) 263-5876 - 253-1120 • RJ 
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Demotic a o 



10 DEF INTA-Y sCLSf 60SU8610 
20 G0SUB82C 

30 CLS:PR IN T 0269 . "GRAU 0E OIF ICULOAOE « 

1 - Hill TO FACIL 

2 - MEDIO 

3 - DIFICIL 

* - MUITO DIFICIL” 

*0 E»- INKEY »: IFE»-””THEN*0 

50 IFEt>”*”OREt<”l ”ORE t »CHRt< 13# THEN*C 

60 IFES* *1 TMEMVS*0iZZ»l*9:GOTO110 

70 IFE$*'”2”THENZZ*1*9:GOT0100 

30 IFE •■’*3 ,, THENVS*0: ZZ*IV1 zGOTOl 10 

9C IFES*’’*”THENZZ*19l 

I>0 VS -9 

110 CLS:Al-CHRt<191 >;8»=CHRt 1 1286 

120 RANDOM > X* RMD i 15 » ♦ 1 0:Y = RND< 10 >41 0 :G*323: Z-GiH* 1 : N-l 
130 L-1SN27 

1*0 RANDOM; A = RND< 5 • -3 ; 6 - RND< 5 > - 3: IF A=OURB=OTHE N140 

150 G0SUBM3C 

160 GOT 0560 

170 »*X*Ai»*Y*B 

130 UOSU8J70 

190 IFr 30RYx**THENB«-B: J J«USR< 12 > : G0T0170 
200 I F X> 1 26T HENA* - A * X« 1 26 : J J=USR < 1 2 > « GOTO 1 70 
210 IFXCOTHENA--A: JJ«USRf 12>:G0T0170 
220 IFX>I5ANDP0INT<X.Y> — 1THEN50C 

230 IFX<10ANDP0INT<X»Y)*-1THENA--A: JJ«USR< 12> :G0T0170 

2*0 IFX 3ANDP0INT < X • Y X, — 1THEN35C 

250 RESET i M. N > : SET < X» Y ) »M*X :N*V 

260 GOT 01 70 

270 R»PEEK< 1**20) 

280 IFR - ORF TURN 
290 G-L 

TOO IFR*8THENL«L-6*s IFLv 15*27L-L »6*: JK«1 

310 IFR* 16L »L*6M* I FL >163191 ==L-6*i JK*1 

320 POKEL . 1*9: IF JK*1 THEN JK *0; RE T URN 

330 IFVS*9THENP0KEL. 1*8: IF JK* 1 THENJK*0: RETURN 

3*0 POKES . 32 2 RE TURN 

350 IFZ? S 1?1T HEN37C 

360 PO-POMs IFP0-12THEM*20ELSE380 

Z~0 F‘0*P(M1 :IFF0*6THFNM?( 

380 RANDOM sX*RNDT 10> 4 25: Y *RND< 10)423 
390 F0RY0*1 T01 OOOsMEXT 
*00 PRIMT#2Sl,P0*lt 

*10 RANDOM: A*RND<2 > -3:B=RND< 2> -3« IFA«00RB*0 THEN* 10ELSE 170 
*20 F’R INI 0256 . “BOLAS E SCOT ADAS’* :: GOT 0790 
*30 IFZZM91 THEN*50 

**0 FOR0MT01*:FQRT-30TO*SSTEP2:G0TO*60 
*50 F0R0*1T01* iFORT* 30T 0*8STEP? 

*o0 POKE <.Q« 6*4 T ) ♦15360# 191 :NEXTT .0 
*70 F0RR*1 T 01 27 1 SET < R . *5 > (SET f R . 2 > (NEXT 
*80 FORF «2T0*5« SETT 127,F i iNEXT 
*90 RETURN 
500 A- -A 

510 P-INT<X/2>4lNT<Y/3)«6* 

520 PRINT#F.B«?:JJ-USR< 12) 

530 LO-LOM 

5*0 IFZZM91 ANDLO* l*OTHENCLS:GOT081O 
550 IFLO* 112 THENCLS:qOT 0810 
560 PR IN T 8*8 » ’’BLOCOS FORA": 

570 PRINT #1 86# "BOL At ” t 
380 FRIHT*231'P0*1; 

590 PR1N1#119.L0» 

600 GO TO 170 
610 KF«*** 

620 PRINTCHR9T23) 

630 PRINTER," a * ■ DEMOLICAO a a a - 
6*0 F0RX*1T06*«PRINT0KK4X.” ** % xFORP* 1 T0*5i NEXT iNEXT 
650 FORZXM T 01 000: NEXT 

660 FORK *0T 01 27: SET (X.0> :SET ^X.*7» (NEXT 
670 FORY~OTO*7:SET<0. Y):SET< 127 . Y > : NEXT 
680 F'R1NI#?18. '* INSTRUCOES** i 

690 FR INT839* , "NESTE JOGO. 0 JOGADOR DEVE DEHOLIR COMPLETAME 

N“ » 

700 PR IN T 8*58# "TE AS PAREDES DUE 0 SEPARAM DA PARTE INTERNA 
DA” j 

710 FR INT8322 » ’’QUADRA . REBATENDO A BOLA DEMOL I DORA. NOS HIVE 

IS” j 

720 PR IN T <9586 . ’* 1 E 2# EXISTEM 12 BOLAS DISPONIVEIS: JA ’ NOS 
NI”: 

730 FR IN T 8650 > ”VE IS IE*. HA SONENTE 6 BOLAS DISPONIVEIS. 
C0”» 

7*0 PR I N T 87 1* » ’* MO TAMBEM AUMENTA 0 NUMERO DE PAREDES. ELEVAN 
DO” | 

750 PRINT8778. ”0 GRAU DE DIFICULDADE DO JOGO.**» 

760 PRINT 99*0. “CENTER “ : : FORX* 1 T 050 : NE XT 

770 IF I NKE Y THE NPR I NT 89* 1 . ** : FORX* 1 T035: NEX T : GOT 076 

C 

780 RETURN 

790 PRINT 9**8. ’’APERTE < ENTER FARA NOVO JOGO’’« 

800 IF INKE Y tOCHRf < 13 ) THEN800ELSEP0*0 :LO*Oc GOT 030 

810 PR INT "PARABENS • VOCE LIMFOU COMPLETAMENTE A QUADRA t ” : GOT 

0790 

920 DEFUSRO-32000«Z«32000 

630 P.EmDB: IFB; OPOKEZ . B: Z«Z*1 (GOT0830 

8*0 DATA205. 127 . 10 . 62 . 5. 21 1 . 255 . 69 . 16 . 25* . 62. *. 21 1 . 255 , 69, 16 
•25*. 37. 20. 239, 201,-1 
850 RETURN 




ICRO PROCESS 



COMPUTADORES LTDA. 



• Microcomputadores 

Microdigital, Prolog ica e Similares Apple. 

• Aulas de Basic 

• Monitores, Impressoras 

• Programas de Contabilidade, aplicativos, jogos, etc. 

• Pacotes de programas para a area de Advogados, 
Open Market Dentistas, Administrate de Imoveis 

• Programas para Engenharia, Arquitetura, 

Controle de Constancies, etc. 

• Elaborate de programas por encomenda. 

• Personalizato de programas para firmas e 
profissionais liberals. 

• Jogo Odissey/Dactari. 

• Manuterxpao e Transformato de Televisores 

• Revistas e Publica^des Tecnicas 

• Amplo Financiamento 

• Despachamos por nossa conta via Varig. 

TEL: 64-0468 

Alameda Lorena, n° 1310 - CEP 01424 
Sao Paulo 

EST ACION AMENT O PARA CUENTES ••• 



VOCEQUERSER 
COLABORADOR 
DE MICRO SISTEMAS? 



Para entrar nesse programa, i 
s6 seguir as instrupdes: 

• Escreva um texto datilogra- 
fado explicando qual a utiliza- 
pio do seu programa, e junte 
exemplos de aplicapSo. Aten* 
p§o: 6 imprescindivel que a lis- 
tagem seja datilografada. Se 
for possfvel mande tambem, 
junto com a listagem datilo- 
grafada, uma fita cassete ou 
disquete com o programa; 

• Se for artigo, use a maqui 
na de esc r ever em espapo dois 
e meio, com setenta toques 
por linha e trinta linhas por fo- 
lha. Caso haja necessidade de 
desenhos e ilustrapoes, deta- 
Ihe-os o mJximo possivel; 

• Releia atentamente sua 
colaborap5o para micros ou 
calculadora, veja se n5o falta 
rtenhuma informapJo (qual 
equipamento, em que configu- 
rapSo etc.), e remeta-a, em 
duas vias, para a equipe de 
MICRO SISTEMAS analisar; 

• N3o se esquepa de mandar 
um breve curriculo, seu nome, 
telefone e enderepo completo. 




Envie para REDAQAO - 
MICRO SISTEMAS, Rio ou 
Sao Paulo: Rua Visconde Sil- 
va, 25, Botafogo, CEP 22281, 
Rio de Janeiro — RJ; Alame- 
da Gabriel Monteiro da Silva. 
1227, Jardim Paulistano, CEP 
01441, S3o Paulo - SP. 

lero 

Slstemas 
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— Cursos de programapao com 
APOSTILA PROPRIA e AU- 
LAS PRATICAS em diversos 
MICROCOMPUTADORES 

— Todas as principais marcas 
de MICROCOMPUTADORES 
pelo menor prepo com credi- 
to direto em ate 24 MESES 

— Programas prontos ou por 

encomendas tanto de jogos 
quanto comerciais 

MICROCENTER INFORMATICA LTDA. 

Rua Conde de Bonfim, 229 - Lojas 320 e 

312 — Galeria Cinema III • Tel 228-0593 
( ep 20520 - Tijuca - Rio de Janeiro - RJ 



INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 




CURSOS 

LINHA IBM (Apoio Marcodata) 

OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TgCNICAS E 
OTIMIZAQAO 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 
LOGO -CP/M - VISICALC 
dBASE II -WORDSTAR 

formaqAo DE PROGRAMADORES 

DURAQAO: 9 MESES 

CPD-ORT : IBM 4341 COM TERMINAIS 
LABORAT0RIO DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMAQ0ES E 
FOLHETOS EXPLICATIVOS 



RUA DONA MARIANA - 213 - BOTAFOGO 
TE LS. : 226-31 92 - 246-9423 0 



oyr^op 



• O Instituto Psicodinamico de Idiomasestd 
oferecendo um curso mtensivo de BASIC para 
principiantes. O curso abrange os nfveis I e II, 
com durapao de duas semanas (carga hordria 
de 11 horas semanais). Os micros utilizados 
sao CP-500 e os da linha Sinclair. Maiores in- 
formapoes na Rua Martiniano de Carvalho, 
200, tel.: 284-3912, Sao Paulo, SP. 

• T6cnicas de Organizapao & M6todo$, Me- 
todologia para Desenvolvimento e Documen- 
tapao de Sistemas, Elaborapao e An£lise de 
Formuldrios, entre outros, sSo os cursos que a 
Didata est6 oferecendo. Para maiores informa- 
poes telefone: (Oil) 34-3195. Sao Paulo, SP. 

• A A DP Systems Empresa de Computapao 
estd oferecendo diversos cursos para o mes de 
janeiro: B$sico/L6gica Estruturada; COBOL 
A. N. S.; DOS/VS; Modulo Alternativo; As- 
sembler; Bbsico Operapao; OCL/3; Digitapao, 
BASIC CP/M. A ADP Systems oferece hord- 
rios pela manhS, tarde e nofte e tambdm nos 
fins de semana. O enderepo da ADP 6 Rua 
Santa Isabel, 305, tel.: (Oil) 223-7511, SSo 
Paulo, SP. 

• Introdupao aos Microcomputadores e Pro- 
gramapao BASIC sao os dois cursos que a Da- 
ta micro lnform£tica est$ oferecendo. Estes 
cursos tern turmas e hordrios especiais tarn- 
b6m para crianpas de 8 a 13 anos e jovens de 
14 a 18 anos. Informapoes e inscripoes Centro 
Cultural Candido Mendes, Rua Joana Angeli- 
ca, 63, Ipanema, tel.: 267-7098, Rio de Ja- 
neiro, RJ. 

• A Mikro lnform$tica aceita inscripoes para 
os seguintes cursos: lnform4tica para Jovens; 
Operapao e Programapao de Microcomputado- 
res — Linguagem BASIC para Crianpas. VArias 
oppoes de hordrio. Informapoes na Av. Afon- 
so Pena, 952, si. 627, tel.: (031) 222-3035, 
Belo Horizonte, MG. 

• A Microrei lnform£tica realizard, nas f$- 
rias de janeiro e fevereiro, cursos intensivos 
com 12 horas de aula sobre Programapao BA- 
SIC Aplicada aos Micros e que nao exigem co- 
nhecimentos anteriores de microprogramapao. 
Sao cursos essencialmente prdticos e apostila- 
dos. Hor£rios: 9:00, 14:00 e 19:30h. Informa- 
poes na Rua Pinheiros, 812, tel.: 881-0022, 
SSo Paulo, SP. 

• A UFRJ estS oferecendo cursos sobre as 
seguintes linguagens: C, Pascal, Assembler, 
BASIC, FORTRAN, ALGOL, aISm de um 
curso de Banco de Dados. Para maiores ln- 
formapoes, dirija-se a Secretaria de Cursos, si. 
C-1010 do Nucleo de Computapao Eletronica 
no bloco C da Cidade UniversitSria. Tel.: 290- 
3212, r: 224, Rio de Janeiro. RJ. 

• A FUNDEP e a Universidade Federal de 
Minas Gerais estao oferecendo os seguintes 
cursos para janeiro/fevereiro: Curso BASIC, 
Curso CP/M, Curso FORTRAN, Curso Pascal, 
Curso VisiCalc, Programapao de Computado- 
res COBOL, Curso de Introdupao d Programa- 
pao de Computadores. Informapoes na Av. 
Antonio Carlos, 6627, Pampulha, tel.: 441- 
4980, Belo Horizonte, MG. 

• Manutenpao do Microcomputador Pessoal 
DGT-100/1000, Projeto de Interfaces para Mi- 
crocomputadores, Microprocessador 8086/ 
8088, Controle de Processos sao os cursos que 
estao sendo oferecidos pelo Centro Brasileiro 
de Informbtica, Av. Passos, 115, si. 215, tel.: 
(021) 233-1123, Rio de Janeiro, RJ. 



• A MICRO'S Processamento de Dados pro- 
move regularmente cursos de programapao 
BASIC e COBOL. Para o curso BASIC sSo uti- 
lizados dois microcomputadores Dismac e um 
NE-Z8000, com hordrio individual para trei- 
namento. As turmas sao compostas de, no m6- 
ximo, 20 alunos e todo material did£tico 6 
fornecido pelo curso. Maiores informapoes 
na Rua Duque de Caxias, 450, Edit. Chams, 
sis. 702 e 703, tel.: (034) 235-6965, Uberlan- 
dia, MG. 

• A Data Record Cursos de Processamento 
de Dados est4 promovendo cursos de BASIC 
e COBOL. O primeiro de 50 horas e o segun- 
do de 120 horas. As turmas sao de, no m4xi- 
mo, dez alunos, com 60% de aulas prAticas. 
Cursos especiais de fbrias pela manha. tarde e 
noite e inclusive nos finsde semana. Informa- 
poes na Av. Santo Amaro, 5450. Brooklin, 
tel.: (011) 543-9937, SSo Paulo, SP. 

• A Dutra InformAtica oferece vdrios cursos 
de lnform£tica, entre eles: Introdupao ds lin- 
guagens BASIC, COBOL, FORTRAN, Assem- 
bler, RPG, Pascal; Sistemas e Computapao pa- 
ra nao-especialistas; Introdupao ao Hardware 
de Mlcroprocessadores, etc. A Dutra tamWm 
oferece palestra e seminarios. Maiores infor- 
mapoes na Rua 1, n? 444, Rio Claro, Sao 
Paulo, tel.: (0195) 34-8922, SP. 

• A Pr6 Eletronica oferece cursos e pales- 
tras sobre MicroinformAtica, Linguagem BA- 
SIC, Sistemas Operacionais e Aplicativos (Vi- 
siCalc, Magic, Window, Profile, etc.). As vagas 
sao limitadas por cursos e o material did£tico 
6 oferecido gratuitamente. Informapoes na 
Rua Santa Efigenia, 568, tel.: 221-9055. Sao 
Paulo, SP. 

• A CompBel promove os cursos: Introdu- 
pao a Microcomputadores para estudantes de 
nfvel colegial, BASIC I e BASIC II e VisiCalc- 
Plus com trapado de grdficos. Informapoes na 
Rua Gregbrio Paes de Almeida, 62, Vila Mada- 
lena.tel.: (01 1 ) 65-9857, Sao Paulo. SP. 

• A Benny Feira Permanente de Microcom- 
putadores estd oferecendo cursos de fbrias pa- 
ra crianpas. Os cursos de BASIC tern um livro 
especialmente elaborado para crianpas que 
aprenderao brincando e se divertindo com os 
micros, os professores sao treinados para es- 
se fim. O curso ter6 a durapao de dez dias e o 
prepo 6 de Cr$ 45 mil, j6 com o material di- 
datico inclufdo. Maiores informapoes na Rua 
Domingos de Moraes, 407, tel.: (011) 570- 
1555, Vila Mariana, Sao Paulo, SP. 



seminArios 



• A Execorn Desenvolvimento Empresarial 
realiza em sua sede, no Rio de Janeiro, se- 
minarios sobre aplicapoes de microcompu- 
tadores nas areas de Finanpas, Planejamento, 
Marketing, Produpao, Pessoal, entre outras. 
Estes seminarios, diurno e noturno, duram 16 
horas e oferecem o uso de um micro (compa- 
tfvel com o Apple) para cada participante. As 
turmas tern, no maximo, nove pessoas, com 
aplicapoes dos mais famosos softwares basicos 
para micros. Maiores informapoes pelos tele- 
fones: (021) 2524946 e 252-3418, Rua do 
Ouvidor, 121/219 and., Rio de Janeiro, RJ. 



• Para informar ao leitor sobre os cursos que 
estafo sendo oferecidos, a revista recolhe in- 
formapoes em dlversas instituipOes ou as rece- 
be pelo correio Portanto. n£o nos responsabi- 
lizamos por quaisquer alterapbes posterior- 
mente efetuadas por estas instituipOes nos 
programas ou prepos 



68 



MICRO SISTEMAS. janeiro/84 







O que voce acha de pilotar um PC 1500 
numa emocionante corrida de Fdrmuta 1 ? 



Grcuito 
de Formula 1 

Daniel Jos6 Burd 



N este circuito voce ser i o piloto, 
determinard o numero de voltas 
da corrida, a dire^o, o sentido e 
a velocidade de seu carro. Para engatar a 
marcha lenta (isto o carro andard 
apenas uma coluna ou quadradmho por 
vez), tecle z; para engatar a marcha 
m£dia (isto 6 , o carro andard duas 
colunas por vez), tecle x; e, fmalmente, 



para engatar a marcha rdpida (isto £, o 
carro andard tres quadradinhos por 
vez), tecle c. 

Para que seu carro ande para frente, 
tecle e mantenha o teclado 6; para andar 
para trds, para cima e para baixo, tecle o 
4, o 8 e o 2, respectivamente. 

Caso voce n£o seja um is no volante e 
venha a hater nas grades de prote^o, 



ser i obrigado a come 9 ar novamente a 
volta; portanto, cuidado! 

Assim que tiver completado a ultima 
volta, seu tempo aparecerd no visor. 



Daniel Josd Burd estd cursando o terceiro ano 
do 29 grau do ColSgio /. L. Peretz. Possui um 
PC 1500 da Sharp e um NE-Z8000, not quais 
desen vo Ive programas. 



Corrida de Fdrmula 1 



5: REM CORRIDA DE 
FORMULA 1 
6: REM NA MATR1Z 
T (85) FI CARA 0 
DESENHO DA PI 
STA 

10: DIM t<85> 

20: WA1 T 100: PRINT 
"A CORRIDA UAI 
COMECAR’ 1 

30: INPUT "QUANTAS 
UOLTAS?" }0: IF 
0<1 PRINT ’QUE 
GRAC INHA" 

40: REM DESENHO DA 
PI STA 
45:CLS 

50: DATA 23, 17,29, 
8, 11, 10, 26, 18, 
22, 20, 23, 17, 29 
, 5, 5, 5, 125, 69, 
69, 81, 81, 81, 95 
, 80, 88 

60: DATA 76, 102, 11 
5, 89, 77, 69, 69, 
69 

65: DATA 85, 81, 81, 
95, 80, 86, 82, 90 
, 74, 106, 74, 90, 
90, 90, 66, 126, 0 
, 0 

70: DATA 67,68, 72, 
95, 65, 125, 5, 29 
, 17, 17, 23, 23 
80: FOR 1 =0TO 24 
90: READ T<1) 



100: NEXT I 
1 10: FOR 1=25T0 33 
120: READ T<1) 

130: NEXT 1 

140: FOR 1=57T0 74 

150: READ T(l> 

160: NEXT I 

170: FOR 1=75T0 85 

180: READ T<1) 

190: NEXT 1 
200:FOR 1-34T0 56 
210: T( I )=85 
220: NEXT 1 
225:0=1 

230: UJAl T 0: FOR P=0 
TO 85 

240: GCURSOR P: 
GPRINT TCP) 

250: NEXT P 
260: REM 0=NUMER0 
DE UOLTAS 
270: CURSOR 22: 
PRINT 0 

280: REM P=POSICAO 
DO CARRO: D=AL' 
TURA DO CARRO: 
K=NUMERO DE T 
ROMBADAS 
290: P=0: 0=8: K=0 
300: REM SUBROT 1NA 
4000 CONTEM 0 
CR0N0METR0 
310: FOR 1 = 1 TO 2 
320: IF P>85LET 0=0 
-1 : IF O=0PAUSE 
•’CHEGADA”: 



GOSUB 4000: H=F 
-6: IF O=0PR1NT 
,, SEGUNDOS”;H 
325: IF O=0END 
330: IF P>85LET P=0 
: CURSOR 22: 
PRINT 0 

340: REM A* CONTER 
A A UELOC I DADE 
E D1RECA0 
350: A$=" M :X=0: WAIT 
2 

360: REM 0 E A REU 
N1A0 ENTRE A P 
I STA E 0 CARRO 
370: A=T <P) : B=A0R D 
380: GCURSOR P: 
GPRINT B 
390: AS=1NKEY* 

400: IF A$< >" "GOTO 
460 

4 10: GCURSOR P: 
GPRINT A 
420: A*=1NKEY$ 

430: IF A#< >" "GOTO 
460 

440: NEXT 1 
450: GOTO 590 
454: REM A SEGUlR 
SERAO EFETUADA 
S AS MUDANCAS 
DE UELOC I DADE 
E DIRECAO 
455: REM Z=UEL. LEN 
TA X=UEL. MEDIA 
C=UEL. RAPIDA 



460: GCURSOR P: 
GPRINT A 

465: IF A#="X"G0T0 
480 

470: GOTO 490 
480:0=2: T=2 
490: IF At= ,, C l GOTO 
510 

500: GOTO 520 
510:0=4:1=3 
515: GOTO 540 
520: IF A#< >"Z"G0T0 
540 

530:0=1 : T=0 
540: IF A$="8 LET 0 
= ( 1NT (CDM)/2 
) J/U: GOTO 590 
550: IF A$="2"LET D 
=<2*D)*U: IF D> 
64LET 0=64: 
GOTO 590 

560: IF A$= ,, 6”LET P 
=P+1+T : GOTO 59 
0 

570: IF At= ,, 4 M LET P 
=P- 1-T : IF P<1 
LET P=64 : GOTO 
590 

580: GOTO 440 
585: REM A=1NTERSE 
CCAO ENTRE 0 C 
ARRO E A PISTA 
590: IF P>85G0T0 32 
0 

595: A=DAND TCP) 
600: IF A=0GOTO 310 



610: WAIT 100.3EEP 
10, 250, 20. K=K-*- 
l: PRINT M QUE E 
RRO ! ! ! “, K: LET 
P=0: 0=8 

615: WA1 T 0: CLS 
620: POR Q=0TO 85 
630: GCURSOR Q: 

GPRINT TCQ) 

640. NEXT Q 
650: CURSOR 22: 

PRINT 0: GOTO 3 
10 

4000: REM AQUI FI 
CARA 0 CRONO 
METRO 

4001 : WA1 T 0 

4010:T*=STR$ TIME 

4020: U=( 1NT (TIME 
)) 

4030: R$=STRS 0 

4040: 0*=RIGHT$ (B 
t, 1) 

4050: J=( (UAL T$)- 
U)* 1 3000 

4060: D$=STRS J 

4065: Ot= (RIGHT# C 
D$, 2) ) : A=UAL 
Gt 

4070: P=UAL ((UAL 
Ct)*3600)+C 
UAL CLEFT# C 
DS, 2)))#68*A 

4080: RETURN 

m 
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Engane o teclado de seu micro compativel com o Apple e faga-o dangar 
con forme a sua musica. Aqui, um utilitario "de bandeja" para voce 



Um teclado 
amodadacasa 

Carlos Alberto Diz 



C om um minimo de trabalho, e gramas ao utilitino for- 
necido neste artigo, voce poder i redefimr o teclado de 
seu micro (se ele for compativel com o Apple). Para 
que? Bom, antes de tudo para bnncar, que 6 a principal moti- 
va^ao de um bom fuqador de micros. Mas como sempre aeon- 
tece, de tantas brincadeiras, acaba surgmdo algo de util. 

Por exemplo: se voce nao tiver um teclado numirico, pode 
simular um, fazendo com que as teclas R, T, Y, F, G, H, V, 
B, N e a barra de espa 90 s gerem os digitos 7, 8 , 9, 4, 5, 6 , 1, 
2, 3 e 0, respectivamente. Colocando umas etiquetas nas te- 
clas, voce teri um teclado numinco. 

Voce tambem pode transformar o lay-out do tradicional te- 
clado “QWERTY” (das seis primeiras teclas da segunda fila, 
comeijando de cima) em algo mais pritico e eficiente, como 
sugeriu Dvorak ao criar o teclado que leva seu nome. 

Infelizmente, o teclado Dvorak foi cnado para ser usado 
com o idioma ingles, e duvido que proporcionasse a mesma 
eficiencia quando usado com o portugues. Mas isto nao impede 
que voce micie um estudo estatistico sobre a freqiicncia de 
ocorrencia da$ letras do alfabeto na lingua portuguesa para, 
quern sabe um dia, lan 9 ar no mercado o teclado Dvorak- 
Tupiniquim ... 

Mas voltando ao nosso assunto, uma grande aplica^o e, 
sem duvida, a redefinn^ao de certas teclas para que, em lugar de 
caracteres individuals, gerem macroinstru^oes. Assim, por 
exemplo, ao t eclar CTRL C, aparcceri a macro CATALOG; 
ou, ao teclar, CTRL L, apareceri a macro LIST, e assim por 
diante. Enfim, existem vanas a pli canoes para um teclado rede- 
fuudo, e o limite & a sua imagma 9 ao. 

O MAPA DA MINA 

Depots de deixar todos com igua na boca, sinto a tenta^ao 
de formular a fatidica frase: detalhes no prdximo nume- 

ro...”, mas como acho que seria dificil garantir minha mcolu- 
midade frente a um bando de leitores enfurecidos, passo a 
contar o segredo em seguida. 

O Apple, esta mdquina maravilhosa (satisfeito, Freitas?!) - 
e com ele todos os Apple compativeis — , usa, para permitir a 
entrada de mforma^ao via teclado, uma rotina chamada 
ICEYIN, rotina esta que reside na ROM, mais precisamente a 



partir do endere^o SFD 1 B. Ela micia, ao ser pressionada uma 
tecla, uma sene de processos consecutivos a cargo de virias 
outras rotinas da ROM, terminando na aceita^o e reconheci- 
mento da tecla ativada e na gera 9 ao do career correspondente. 

Para redefimr o teclado 6 , portanto, suficiente alterar esta 
rotina para que, seguindo instru 9 des previamente fomecidas, 
ela transforme o carater normal men te gerado por uma dada 
teclji no cariter que desejamos, permitindo que as demais ro- 
tinas que seguem nunca perce bam a modifica^ao feita no te- 
clado. Porem, nao 6 possivel alterar diretamente instru 96 es que 
se encontram na ROM, pois esta mem 6 na (Read Only Memo- 
ry) nao aceita input. 

Fu^ando na memona do computador, descobre-se que exis- 
te uma area na RAM, mais exatamente as posi 96 es KSWL c 
KSWH ($0038 e $0039), que normalmente contdm o endere- 
90 de entrada de KEYIN. Ou seja, para chamar KEYIN, o sis- 
tema procura, nestas posi^Oes, o endere 90 de entrada desta ro- 
tina. Como KSWL e KSWH sao endere^os da RAM, podem ser 
alterados por algo tao elementar como um POKE, existindo, 
por^m, maneiras infinitamente mais complexas de se fazer a 
mesma coisa, como os programadores de Assembler gostam de 
nos ensinar. 

Se escrevermos uma rotina em linguagem de mi quin a 
para substituir KEYIN que cumpra com os nossos requisitos, 
e colocarmos o endere^o de infeio desta coluna em KSWL/H, 
no lugar do endere^o de micio de KEYIN, entao o computa- 
dor nunca descobriri que o enganamos, e usara nossa rotina 
como se fosse a prdpna KEYIN. 

Resumindo, precisamos de uma rotina substitutiva de 
KEYIN que: 

• compare o carater correspondente a uma tecla pressionada 
com uma dada tabela referencial para ver qual o carater (ou 
macroinstru 9 §o) que substitui o cariter original da tecla, e 

• substitua o novo cariter (ou macroinstru^o) pelo carater 
original e volte as rotinas normals como se nada tivesse acon- 
tecido. 

Isto feito, precisamos de um programa para criar uma tabe- 
la de redefini 9 ao do teclado e, finalmente, de um programa 
que implemente esta loucura toda. 

A rotina substitutiva tern que ser em linguagem de miqui- 
na (que horror!!), e pode ser colocada numa irea da RAM mui- 
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*. a 

1 5 
20 
30 
40 
50 
55 
6 0 
70 
100 
1 1 0 
1 20 



HIMEM 

HOMF 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

TOR I . 

HOME 

FOR I 



TAB < 6)’ 

TA B < 6)' 

TAB ( d>* 



< A* ) < 

♦ 4 4) 



DEFINE 

PROCRAMA DE CRIACAO DE 
TA B ( 6>"» TABELAS DE R E - D E F I N I CO E S 

TAE< 6)"* DAS TECLAS DO TECLADO 
TAB ( 4* 

> 1 TO 2000 NEXT 

READ Zl . 22 Z3 

0 TO 93 POKE Zl ♦ I. I ♦ 128 NEXT 



27 THEN 
NORMAL 



POKE Z! ♦ 1.0 POKE Zl ♦ I ♦ 1.0 
130 Zt - C HR $ (0) Dt - C HR * (4) 

140 COTC 3000 

1000 HOME INVERSE TRINT " 

DE CARACTERES " . NORMAL 

1 0 20 PRINT "TEC L E A TEC LA QUE VOCE QUER REDEFINI 
R" PRINT "E DEPOIS O CARACTER A SER ATRIBUIDD A 

" PRINT "ESTA TECLA (PARA SAIR TECLE » * ) " 

1030 INVERSE PRINT "TECLA 1 HTAE 10 
ARACTER" NORMAL 
1040 POKE 34 . 3 
1050 HOME 

lOdO GET A t IF A* - "•" THEN RETURN 
1070 A» - A* ♦ Z* 

10 79 IF ASC ( A * > < 27 AND ASC <A*> 

NVERSE PRINT CHRt ( ASC (A*) ♦ 44) 

HTAB 10 GOTO 1090 

PRINT At HTAB 10 
GET B I IF Dt • "9" THEN 1040 

1100 B( > Bt ♦ Zt 
1110 PRINT Bt 

POKE Zl ♦ ASC (At) ASC (Bt) 

GOTO 1040 
GOTO 5000 

HOME INVERSE PRINT " 

DE MACROS NORMAL 

2020 PRINT "TECLE A TECLA QUE VOCE QUER REDEFINI 
R" PRINT "DEPOI3 INCRESSE A MACRO A SER ATR I BU I D 
A" PRINT "TERM I ME COM (PARA SAIR TECLE 9 ‘ ) " 

2030 INVERSE PRINT "TECLA". HTAB 10 PRINT "M 
ACRO" NORMAL 
2040 POKE 343 
2050 HOME 

2 0 d 0 C - 0 GET At IF At • THEN 2180 

2070 At « At ♦ Zt 



1080 

1090 



1 1 20 
1130 
14 00 
2000 



ATR I BU I C AO 



PRINT 



0 THEN 
NORMAL 



128 



ATR I BU ICAO 



0 THEN 2040 



2075 IF ASC (At) > 0 AND ASC 
NVERSE PRINT CHR t 1 ASC (At) 

HTAB 10 GOTO 2090 
2080 PRINT At . HTAB 10 
2090 POKE Zl ♦ ASC (At).Z3 
2100 GET Bt IF Bt • "®" AND C 

2110 IF Bt . THEN 2150 

2111 Qt - Bt 

2112 IF Bt • CHR t (13) THEN Ot - 
2115 PRINT Qt 

2120 POKE Z 2 ♦ Z 3 . ASC (Bt) ♦ 128 

2130 Ct » BtC - l 

2140 Z 3 • Z 3 ♦ 1 GOTO 2 100 

2 130 POKE Z 2 ♦ Z 3 - l. ASC (Ct' 

2155 PRINT 

2140 IF Z 3 ( 128 THEN 20 40 

2170 PRINT "A TABELA DE MACROS ESTA* CHE1A I ! ** 
2180 RETURN 
3000 HOME 

3010 PRINT "INDIOUE QUAL NOME DEVE SER ATR I DU I DO 
A" INPUT "A TABELA QUE ACABA DE SER CR I ADA ".A* 
3020 IF At . M " OR At . " " THEN PRINT "NOME IN 



VALIDO f • ’ 



COTO 3010 



30 30 
Df 


PRINT D 


30 4 0 


HOME ! 


OB O NOME 


30 4 0 


PRINT 


A TABE 


LA RODE 


30 70 


END 


4 90 0 


STO® 


50 00 


POKE 34 


50 10 


PRINT " 


5020 


PRINT " 


50 30 


PRINT " 


50 35 


PRINT - 


5 0 3 7 


PRINT " 


50 40 


GET At 


50 45 


I F A t ( 


5030 


ON VAL 


5060 


GOTO 30 


1 00 00 


DATA 


20 000 


GET At 


2001 0 


PRINT 



At . 



At9500.LtlOO‘ 



F R I NT 



PRINT "A TABELA CRIADA FOI GRAVADA S 
PRINT At 

PRINT PRINT " PARA IMPLEMENTAR 
O " PRINT "PROCRAMA 1 I MP L EMENT A 



HOME PRINT PRINT 
ATR I BU I R CARACTERES" 

ATRIBUIR MACROS" 

ACRESCENTAR /CORR IG IR CARACTERES" 
ACRESCENTAR/CORRIGIR MACROS" 
GRAVAR TABELA DE R EDE F I N I CO E S - 



OR At > "5" THEN 5040 



38144.38239.1 
ASC (At) GOTO 20000 



Figura 1 



•00 REM *••*•••**•*••••••••••*••*•••*•• 

110 REM • COLOCA ■ 

120 REM • CARREGA ROT I NA- EM LINGUAGEM • 

130 REM * MAQUINA QUE SUBSTITUI KEYIN • 

140 REM •*»••»**•**••••*•••«**•*•*****• 

130 FOR K ■ 748 TO 852 
140 READ X 
170 POKE K . X 
180 NEXT 

190 PRINT CHR t (4)."BSAVE K E Y I NP. ED E F . A t 0 3 0 0 . L t 5 

4" 

20 0 PRINT CHR t (4). "RUN DEFINE" 

210 DATA 2 4 . 1 44 59 . I 4 2 . 9 4 . 1 4 9 . I 74 . 93 . I 4 9 2 08 . 3 ! 

.72.23078.208.2.230.79.173.0.192.14.243.44.14.19 
2.41.127.170.104.145.40.189.0.14914.417494 
220 DATA 149.94.170.189,95.149.14.4.232.142.93. 
149.16.240.9128.142.0142.95.149.240.231.149149 
.133.114.1490.14195.149133113.1493.140.3.133 
.54.132.37.32.2343.96 



Figura 2 



to usada pelos programadores desta linguagem para guardar 
sub-rotmas de usudno, utilitdnos etc., ou seja, a prigina 3 da 
mem6na. mais precisamente a partir de S0300. 

Como nem todos tern um editor Assembler ou familiaridade 
com a opera^ao do monitor, a figura 1 traz a listagem de um 
programa em BASIC (COLOCA) que se encarrega de instalar 
a rotina em seu devido lugar, copid-la para o disco sob a forma 
de um arquivo bindrio (KEYEMREDEF) e chamar e rodar um 
outro programa (DEFINE, figura 2) que serve para cnar uma 
tabela de redefim^oes. 

Na figura 3 temos a listagem de um ultimo programa, tam- 
bem em BASIC (IMPLEMENTA), que, como diz o nome,im- 





HIMEM 38144 






2 


HOMF 






3 


PRINT 


• • 




4 


PRINT "* IMPLEMENTA 




* 


3 


PRINT "•**•***•**«•«*•••••*•*••• 


• • 




4 


PRINT 






l 0 


PRINT "ESTE PROGRAMA CARREGA E 


INIC l AL I ZA" 


20 


PRINT "A ROTINA DE REDEF1NICAO 


DO 


TECLADO" 


30 


PRINT 






40 


Dt - CHR $ (4' 






50 


INPUT "INDIOUE O NOME DA TABELA 


A 


SER USADA " 


A* 








60 


PRINT Dt . "BLOAD "At 






70 


PR I N^ Dt . " BRUM KEYINREDEF" 







Figura 3 



plementa uma tabela de redefm^oes cnada por DEFINE. A 
partir destes tres programas, tudo que voce precisa fazer 6: 

1) digitar o programa COLOCA e guarda-lo (SAVE COLOCA); 

2) digitar o programa DEFINE e guarda-lo (SAVE DEFINE); 

3) digitar o programa INPLEMENTA e guarda-lo (SAVE IM- 
PLEMENTA); 

4) responder as pcrguntas que aparecerfo na tela e fornecer um 
nome a tabela de redefini 9 oes cnada, conforme o programa 
perguntara; 

5) rodar IMPLEMENTA (RUN IMPLEMENTA), indicar o ng- 
me da tabela a ser implementada, e pronto: seu teclado nao se- 
ra mais o mesmo! 

Um RESET, em qualquer momento, devolvera ao seu com- 
putador o teclado original, mas consulte seu manual antes de 
dar um RESET, pois qualquer falha podera prejudicar o pro- 
grama presente na RAM. 

Voce pode definir uma ou mais tabelas usando DEFINE — 
dando um nome diferente a cada uma delas — e implementar 
teclados diferentes segundo suas necessidades. Se voce incluir 
cm seu programa HELLO uma ultima linha que diga PRINT 
CHRS(4) ;“RUN IMPLEMENTA”, todas as vezes que carre- 
gar o DOS sera solicitado a miciar o nome da tabela de redefi- 
ni^ao que quiser implementar. 

Caso voce queira ficar com o velho e pouco original teclado, 
responda CTRL C a esta pergunta, ou simplesmente RESET 
(se seu Applesoft nao for do tipo residente em ROM, consulte 
seu manual antes de dar um RESET, pois corre o nsco de en- 
trar para o monitor sem saber como voltar). 

Nao se esque<;a de anotar o que cada tabela faz, e marcar as 
teclas usadas para gerar macroinstru^oes (use etiquetas) com a 
macro que cada uma gera. Divirta-se! ! ■ 



Carlos Alberto Diz 6 formado em Engenharia Eletrdnica pel a Universi- 
dade de Dundee. Escdcia. e possui Mestrado em Administrate de Em- 
presas pelo INSEAD — Instituto Europeu de Administraoao de Empre- 
sas. Fontainebleau . Franca. Atualmente 4 sdcio-gerente da Compusys- 
tems do Rio de Janeiro, uma system house dedicada a consu/toria in - 
formitica e confec^ao de software sob medida. 
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Neste jogo para os micros compativeis com o TRS-80 Model o /, voce 
tera que ser muito ripido para combater o ataque das naves inimigas 



Resista ao ataque 



Paulo Prado Junior 



N este programa, voce deve abater 
o maior numero possivel de na- 
ves immigas que se deslocam ra- 
pidamente em dire 9 ao a sua drea de pro- 
te^ao. Mas nao se preocupe : para se de- 
fender voce tem canhCes e muni 9 ao su- 
ficientes. 

A nave mimiga desloca-se para a di- 
reita ou esquerda procurando descer gra- 
dativamente para poder ataca-lo. Os 
raios lan 9 ados por ela somente serdo dis- 
parados ap6s certa altura. 

Se voce quiser movimentar o seu ca- 
nhdo para a direita use “ > ”, para a es- 
querda “ < ” e para disparar use D. 

O ataque 6 feito por dez naves ldenti- 
cas e, para cada nave abatida, outra volta 
a atacar no mesmo ponto em que a ante- 
rior foi derrubada. 

Se voce for urn bom combatente e 
conseguir destruir todas as naves, ganha- 
rd um canhao e mais 60 tiros de muni- 
9 ao para se defender de um novo ata- 
que. Do contrdno, tenha muito cuidado, 
pois, para cada canhao destruido, a nave 
aproxima-se mais da area defendida e se 
uma das naves chegar ao solo, voce per- 
de automaticamente um canhdo. 



Paulo Prado Junior exerce a funqSo de progra- 
med or no Rodovidrio Cagula S.A., atuando 
em implantacdes de sistemas on-line, al6m de 
ser sdcio -propriety no da MICRO'S Processa - 
men to de Dados Ltda., empresa dedicada ao 
desen volvimento de cursos e sistemas ap/icati- 
vos para microcomputadores. 



Resistencia ao ataque 



1 REM ***** ***** 

2 REM ** MICRO* S - PROCESSAMENTO DE DADOS ** 

3 REM ** CURSOS - BASIC , COBOL E FORTRAN ** 

3 REM ** FONE - (034) 235-6965 UBERL AND I A-MG ** 

5 REM ***** ***** 

6 REM ** PROGRAMA : RESISTENCIA AO ATAQUE (JOGO) ** 

7 REM ** AUTOR : PAULO PRADO JUNIOR ** 

8 REM ***** ***** 

? REM 



10 CLEAR 1500: DEFINT A-Z: 6=16192* C=3* T*15C>: CLS: GOSUB 300 
20 A* 15361 

30 POKE G> 186: POKE 6*1,181 

40 POKE A, 128: POKE A+l, 128* POKE A-1,128 

50 A=A*RND ( 10) -4: IF A< 15361 * A= 15361 * ELSE* IF A>16192 GOTO 250 
60 POKE A, 188: POKE A*1,134:P0KE A-1,137 

70 Z* (A-15360) /64*1 : IF Z<5:G0T0 110: ELSE: IF RND ( 1 1 ) < 1 1 : GOTO 110 

80 V*0* FOR W-ZT012: V=V+ 1 : POKE A+V*64, 173* NEXT W 

90 0*0* FOR W=ZT012*V»V*1*P0KE A*V*64> 128: NEXT W 

100 IF A+((14-Z)*64)=G:G0T0 250 

110 POKE A* 143* POKE A+1,164*P0KE A-1,152 

120 Y*= INKEY* 

130 IF Y*«"D M lT-T-l« IF T<l*C»i*60T0 250:ELSE:F0R W=1T013 STEP 2: 
POKE G-W*64, 170: IF G-W*64=A OR 6- (W-l ) *64=A: POKE G-W*64, 128: GOTO 
1 70s ELSE* POKE G-W*64, 1 28* NEXT W*GOTO 40 

140 IF Y*- M . M *IF G< * 1 6250 : POKE G,128*P0KE G*1 » 128* G=G*4* POKE G, 1 
86* POKE G+ 1,181* GOTO 40 

150 IF Y*«". M *IF G >= 1 6 1 97 * POKE G, 128* POKE G*1 , 128: G=G-4* POKE G, 1 

86* POKE G*l, 181* GOTO 40 

160 GOTO 40 

170 R=0* FOR W-ZT014 

180 POKE A*R, 188* POKE A-l+R, 137: POKE A* 1*R , 1 34 : GOSUB 240 
190 POKE A*R, 191 SPOKE A- 1 *R, 1 40: POKE A* 1*R, 140* GOSUB 240 
200 POKE A*R, 1 43: POKE A-l+R, 152* POKE A* 1 +R, 164* GOSUB 240 
210 POKE A+R> 128: POKE A-l+R, 128: POKE A*1*R, 128 
220 R*R*64: NEXT W 

230 N**N+1 : J=J+1 * IF J=10* J=0* T=T+60* C-C+l * GOSUB 300: GOTO 20* ELSE* 

GOSUB 300* GOTO 30 

240 FOR K=0TG20* NEXT K* RETURN 

250 FOR W=OT 030 * R* 1 29+RND ( 62 ) s POKE G,R*POKE G*1,R*NEXT W 

260 POKE A, 128* POKE A*l, 128: POKE A-1,128 

270 C»C-1* GOSUB 300* A-A+64: IF A>16192 AND C>0 GOTO 20 

280 IF OOSGOTO 30* ELSE* FOR W=0T0832 STEP 64 SPRINT 3W, STRING* (63 

, 191) J :NEXT W 

290 PRINT 30, M ";* INPUT " NEWLINE P/ JOGAR NOV AMEN TE "?A*:GOTO 10 
300 PRINT 3896, STRING* (63, 179) ; SPRINT 3960, STRING* (63, 191 ) J 
310 PRINT 3963,” CANHOES - "1C* SPRINT 3980," MUNICAO - M *T;*PRIN 
T 3999," NAVES ABATIDAS - "JNJ 
320 RETURN 
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CT 1 .S. Services 



“MIKRO S” 
AGORA NO 
LEBLON! 

| Av. Acaulfo de Pmiv* 566 - Loja 211 | 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PRECOS 
‘TNCRJVEIS” DA “MIKROS 
DO LEBLON, EM SUA EPOCA 
DE INAUGURACAO. 



M ICROCOMPUT ADORES 



NAJA — JR-SYSDATA — UNITRON 
COLOR 64 — APPLE -TRONIC 
CP-200 — CP- 300 — CP-500 
TK-83 — TK-85 — RINGO 



SISTEMAS 



SOFTWARE (NAC. E IMPORT) 
1MPRESSORAS E PERI F£ RICOS 
CURSO DE BASIC 



PROFISSIONAIS 
ALTAMENTE ESPECI AL1ZADOS 
PARA ATENDE-LO 



AUMENTE A 
PRODUTIVIDADE 
DE SUA EMPRESA 



CONSULTORES 

Para o desenvolvimento da 
sua empresa. estamos pron- 
tos a servi-lo. 

Assessoria de Processa- 
mento de Dados. Desenvol- 
vimento de Programas e 
Treinamento de Pessoal. 

O futuro e hoje e nos esta- 
mos presente. 



PRH Consultores 

Rua Mexico, 70 - Grupos 810 11 

Centro - RJ. Tel.: (021) 220-3038 







O lugar compativel 
com voce e seu 

micro. 




Rua Dias da Cruz, 215 — S/804 1 
Rio de laneiro — R) 

BIP _ 246-4180 — cod. 2x83 



DATAMICKO 



VENDA DE 

MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOF 
CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

~ l JPRIMENTOS 

Disquete. fitas. form continuo 



CONSULT Ofit* DE SISTEMAS 

Diagnosttco e apoio a decisao 



CURSOS E TREINAMENTO 

Introdugao aos microcomputadores 
Linguagem Basic 
Aplicagao dos micros 
na Engenharia 

Microcomputadores para criangas 
INSCRIQOES ABERTAS 

Livros e revistas especializados 



vise de Piraja. t>4 / SoOreioja Zli 
Cep. 22.410 Ipanema Rio RJ 
Tel.: (021) 274-1042 
DESPACHAMOS PARA 

TOOO O RRASll 



Alfa Bit 
CLUBE DE COMPUTAQAO 



Associe-se ao ABCc e ganhe Anuncio GRA- 
TIS, um exemplar de ALFABIT e DESCON- 
TOS de 10% na compra de LIVROS. REVIS- 
TAS. CURSOS e PROGRAMAS. aiem de: 

— Servigos de "Repnnters” e Consultas 

— Associagao a Clubes Europeus 

— Participagao em Cursos, Congressos e 
Concursos 

— Novos Langamentos a PREQOS REDUZI- 
DOS (Breve IMPRESSORA OE AGU- 
LHAS P/MINI-MICROS DE LOGICA SIN- 
CLAIR - Langamento Digital Eletrd- 
mca") 

ANUIDADE CrS 1.000 (hum mil cruzeiros) 

somente ao receber seu Cartio-Descontos e 

um exemplar de ‘AlfabiT 

Envie no me, enderego. profissio e texto do 

seu anuncio (caso queira publicagio ime- 

diata) 



N 0 V I D E I A (*) 

Comunicagao e Informatica Ltda. 
CAIXA POSTAL 9978 
CEP 01051 • Sao Paulo. SP 



OComercializamos seu proie- 
to-Soft ou Hard. Escreva-nos 



EB BITS E EITIS 

COMPUTADORES 



• VENDAS 

• ASS. TECNICA 
ESPECIAL IZADA 

• PROGRAMAS 

• DISKETTES 

• FITAS 

• SER VICOS 

• CURSOS DE BASK' 

• FORMULARIOS 



ICONSERTOS EM 24 HORAS| 
(COM GARANTIA) PARA 
O CP-500 e DGT-100 



EM SAO CONRADO 
Estrada da GAvea, 642 
LJ. B Tel.: 322-1960 



No Recife, visite 

TELEVIDEO (’) 

O Lojao de Informatica mats 
descomphcado do pais! 

Micros, perifericos. suprimen- 
tos. Software. Cursos. Livros e 
Revistas. Componentes Eietro- 
nicos. Pegas e Som. 



PREQOS ESPECIAIS. 
FINANCIAMENTO PR6PRI0. 



Compre pessoaimente ou peio 
Reembolso Postal 

TELEVIDEO LTDA. 

R. Marques do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 



()Sr. Industrial: distribuimos sau 
produto nas melhores condiqoes 
Contato am Sao Paulo: Tal.: (Oil) 
220 7377 (Sr. ANDERSON - Mum 
disom) 



CURSO BASIC 



Turmascom lOalunos 
Aulas pr&ticas e teoricas 

Hor&rios: 



manha 8:30 hs is 10:30 hs 
tarde 14:00hs&s 16:00hs 
noite 20:00 hs as 22:00 hs 



MATRICUt AS ABERTAS 



ipnnEmA ITIicro 

Rua Vise, de Piraja, 540 Ij 106 
22.410 Ipanema Rio RJ 
Tel. 259-1516 



ANUNCIO 

PEQUENO 

GRANDE 

RETORNO 



ESTE ESPACO ESTA 
RESERVADO PARA SEU 
ANUNCIO ECONdMICO. 
GARANTA JA UM 
SUPER RETORNO. BASTA 
LIGAR PARA: 

RIO DE JANEIRO: 

(021) 286-1797, 246-3839 
e 266-0339 
SAO PAULO: (011) 
280-4144 e 853-3800 



Aten^ao 

leitores 

de todo 
Brasil! 



MICRO SISTEMAS in forma quea 
firma Spartime e o sr. Eloi Jora 
Soares nao mais representam a 
revista para fins de 
venda de assinaturas. 

Para assinar MICRO SISTEMAS, 
dirija-se pessoaimente ou 
por carta aos nossos endereqos: 



Rio d© Janeiro — R. Visconde Silva, 25, Botofogo, CEP 
22281 , tels: (021) 286-1797, 246-3938 e 266-0339 
Sdo Paulo — Al. Gabriel Monteiro da Silva, 1227, Jar- 
dim Paulistano, CEP 01441, tels; (011) 280-4144 e 853- 
3800 



/Micro 


















Organizando arquivos em K-7 

Algumas vezes, gravamos tantos programas em uma fita, 
que depois fica impossfvel sabermos onde esti determinado 
programa ou qual programa esti sendo carregado no micro. 
Para colocar “ordem na casa”, 6 s6 acrescentar, quando for 
gravar um programa, uma linha como esta: 

10 INPUT T$ : PRINT#-1 , T$ : CSAVE T$ 

Digite RUN 10, e ap6s digitar o nome do programa e an- 
tes de pressionar ENTER, ligue o gravador no modo de gra- 
va^o. 

E quando quiser carregar o micro, ndo use CLOAD, utili- 
ze o seguinte programa: 

10 INPUT#-1 , T$ : CLS : PRINT@256 , T$ : 

PRINT@512, " CARRE GANDO =======> " : 

CLOAD 



Car'os Alberto C. Jr.-DF 



Se voce tern pequenas rotinas e programas utilitdrios real- 
mente uteis to man do poeira em seus disquetes ou fitas casse- 
tes, antecipe-se aos piratas e trate de divulgd-los. Envie-os pa- 
ra a REDA^AO DA MICRO SISTEMAS - SE<;AO DICAS: 
Rua Visconde Silva, n 9 25, Botafogo, RIO DE JANEIRO-RJ, 
CEP 22281. 

Nio se esque 9 a de dizer para qual equipamento foram de- 
senvolvidos. Desta forma, sua descoberta poderd ser util para 
muitos e muitos, em vez de desmagnetizar-se com o tempo 
em sua s fitas e disquetes... 



Video ilegivel 

Para tomar o video ilegivel digitando SS= USR (0), use 
este programa que apresentamos a seguir (6 s6 apertar a barra 
de espa<jo para parar): 

10 POKE 16561,225: POKE 16562,127 
20 POKE 16526,225: POKE 16527,127 
30 FOR X=32737 TO 32753: READY 
40 POKE X, Y: NEXTX 
50 DATA 62,0,211,255,62,251 
60 DATA 211,255,58,64,56,230 
70 DATA 128,202,225,127,201 

E para rodar este programa em BASIC Disco, basta trocar a 
linha 20 para DEFUSR0= 32737. 



Eduardo Artacho-SP 



Linha TRS-80 



Ligue o gra vador com SS= USR (0) 

Para ligar o gravador usando SS= USR(0), e desligar 
apertando a barra de espa 90 , use este programa: 

10 POKE 16561,225: POKE 16562,127 
20 POKE 16526,225: POKE 16527,127 
30 FOR X=32737 TO 32749: READY 
40 POKE X, Y: NEXTX 
50 DATA 62,5,211,255,58,64,56 
60 DATA 230,128,202,225,127,201 

Para que este programa rode tamWm em BASIC 
Disco, 6 s6 trocar a linha 20 para DEFUSR0= 32737. 



Eduardo Artacho-SP 






Linha 
SINCLAIR 



Dimension 

progressive 



Para utilizar um DIMENSION progressive, use as varidveis alfanumdricas con- 
catenadas (VS- VS+AS onde AS ser d o dado a ser armazenado em VS). 

Para recuperar os dados individualmente, utilize VS (X TO X + Y), onde X i 
o apontador para cada “dimensSo” e Y i o tamanho de cada dado. Assim, o es- 
pa^o utilizado no micro para armazenar dados ou mforma95es serd em fun^do da 
quantidade de dados j A operados, e n£o de uma quantidade predeterminada. 
Dessa forma o micro ndo vai ficar guardando ‘Tichas em branco”. 



Renato Degiovani-RJ 
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I 3 3> 



Linha TRS-80 



Trocando a sent la 

Todos que conhecem o Sistema Opera cion aJ DOS 500 sa- 
bem que o comando PROTO (PW) serve para trocar uma se- 
nha do disco por outra. Mas, e quando se desconhece a senha 
original? NSo hi problema. Quando aparecer a mensagem: 
MASTER PASSWORD? 

6 suficiente introdimr um outro disco em que a senha 6 co- 
jcida, e fornecer esta senha ao micro. Depois, voltar o dis- 
antenor e dar a senha atualizada, que serd gravada em lu- 
da anterior, desconhedda. 



Luiz Gonzaga de A! yaranga GO 



Linha APPLE 



Limpe o video com criatividade 

Para limpar seu video de forma mais elegante e mteressan- 
te do que com um simples HOME, use esta dica e veja o vi- 
deo ir se apagando da direita para a esquerda e vice-versa, do 
centro da tela para as bordas laterals e o inverso, e ainda do 
centro para cima e para baixo. A16m de voce poder criar mui- 
tos efeitos com esta dica, observe o que acontece quando vo- 
ce terminar o programa. 



Linha SINCLAIR 



Substitua o PA USE 

£ comum precisarmos manter uma listagem no vi- 
deo por um detenmnado tempo, para apaga-la poste- 
riormente. A maioria dos usudrios utiliza a mstru^o 
PAUSE X, onde X= n/60 segundos. Mas uma das des- 
vantagens deste recurso sao as perturba 9 oes na tela, en- 
tre outras. E nos eqiupamentos antigos, ha via ainda a 
necessidade de uma instrudo POKE 16437,255 (devi- 
do a um erro de hardware) depois do PAUSE. 

Para melhorar esta situa^o, basta usar uma malha 
de tempo (FOR.. .NEXT) como sub-rotina. Por exem- 
plo: 

10 PRINT “MALHA DE TEMPO” 



100 GOSUB 800 
110CLS 



800 FOR A= 0 TO 100 

801 NEXT A 

802 RETURN 



Para a varia^ao de 0 a 100, a malha dura tres segun- 
dos, de 0 a 200 demora seis segundos, e assim sucessiva- 
mente. 



Dilson Bastos Fernandes-MG 



HOME s GOSUB 80 

FOR I = 39 TO O STEP - Is POKE 
32, Is POKE 33,40 - Is HOME s 
NEXT s GOSUB 80 

FOR I = 1 TO 40s POKE 33, Is HOME 
s NEXT s GOSUB 80 

FOR I = 39 TO 20 STEP - Is POKE 
32, Is POKE 33,40 - Is HOME s 
POKE 32, Os HOME s NEXT s POKE 
33,40s GOSUB 80 

FOR I = 19 TO O STEP - Is POKE 
32,20s POKE 33,20 - Is HOME 
s POKE 32, Is HOME s NEXT s POKE 
33,40s GOSUB 80 

FOR I = 13 TO 24s HTAB Is VTAB 
Is CALL - 868: VTAB 25 - Is 
CALL - 868s FOR J = 1 TO 5 
Os NEXT s NEXT s LIST 40 - 

PRINT s PRINT CHRS (93) ; s FLASH 
s PRINT M " ; s NORMAL s FOR I 
= 1 TO 500 s NEXT 

VTAB 24s FOR I = 1 TO 21s PRINT 
s FOR J = 1 TO lOOs NEXT s NEXT 
s VTAB Is END 

LIST 40 - s FOR I = 1 TO lOOO 
s NEXT s RETURN 



Mike G/enn-RJ 



Linha 


TRS-80 


Data Opcional no DOS 


Na be do Dicas de Mb nV 24 publicamos umrAltH 
para evitar que o DOS 500/TRS DOS solicitasse data/ho- 
ra ao darmos RESET. Agora vamos apresentar PATCHs 
que representam uma altemativa interessante: apesar de 
manterem a solicita^o da data/hora, permitem que o 
operador, tal como j i acontece com a hora, digite as in- 
forma^oes corretas ou simplesmente aperte ENTER, fi- 
cando a informa^o correspondente ajustada em zero. Is- 
to sera de muita utilidade se voce gostar de ter a data 
corretamente registrada no diretdrio, ao gravar um pro- 
grama em disco. Em DOS 500 Ativo/TRS DOS Ready 
digite: 


PATH *0 (ADD=4EC1 , FIND=F0 , CHG=07 ) <ENTER> 

PATH *0 ( ADD=4ED4 , FIND=3A814F / CHG“C3FE4E) <ENTER> 

Estes PATCHs, embora sd aceitem caracteres num^ri- 
cos, nio verificam se os valores mes/dia/ano estao den- 
tro dos limites normais. Mas se voce j i ha via modificado 
o seu DOS de acordo com a dica de MS no 24, n£o se 
esque^a de reverte-lo i condi^o original - conforme o 
manual do DOS 500 ensina na pdgina 48 — antes de fa- 
zer esta modificado. 


Roberto Quito de Sant'Anna-RJ 
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Curso de 
Assembler - XII 



N 

JL ^ a ultima \ig5o estdvamos conversando sobre as instru- 
g&es que compCem o grupo de aritm^tica e logica de 8 bits. 
A seguu vamos completar a describe* das mstrusdes que 
comp-5em este grupo 

1 1 — Opera^o Logica XOR 
Formato: XOR s 

Operagdo: Efetua uma opera^ao 16gica XOR do Acumulador 
com o conteudo do operando s (r, n, (HL), (IX+d), 
IY+d)). A opera^o 16gica XOR 6 verdadeira 
(bit = 1) se os operandos envoi vidos na opera^o 
forem diferentes. A tabela abaixo demonstra os 
possiveis resultados de uma opera^o XOR: 



XOR 40 H 

i r 



1 


— 

1 


T - 

1 


r— 

0 


r— 

1 


1 


1 


0 


0 


1 

i 


0 

* 


0 


0 


0 


r— 

0 

1 


0 



Descrigao: £ efetuada uma opera^o 16gica XOR do operando 
s, definido como sen do qualquer dos operandos r, 
n, (HL), (IX+d), (IY+d), com o conteudo do Acu- 
mulador, e o resultado 6 transferido para o Acu- 
mulador. 



1? bit 


2* bit 


resultado 


0 


0 


0 


0 


1 


1 


1 


0 


1 


1 


1 


0 



Codigo Objeto: 

XOR r 
XOR n 

XOR (HL) 

XOR <IX*d) 



XOR <IY*d) 




> EE 

> At 

> DO 

> At 

-> EO 
At 



INSINUCAO 


OPf RAQAO 


CICIOS Of MA0UINAS (M) 


SIA1CS (T) 


10R 


r 


A^- A® r 


1 


% 


10M 


n 


A^- A®n 


I 


7U.1) 


10ft 


(ML ) 


A*-l ® (HI) 


f 


7(ft.l) 


10ft 


(11*4) 


A— ft ® <11. d) 


J 


19(1,4,),),)) 


10R 


CIV*#) 


A«- A ® < IV. d) 


$ 


19(4,4,),),)) 



Flags Afetadas: S — setada se o resultado 6 negativo, se- 

nao e resetada; 

Z — setada se o resultado 6 zero, senffo 6 
resetada; 

H — resetada; 

P/V - setada se a paridade 6 par, senffo 6 
resetada; 

N — resetada; 

C — resetada. 

Como exemplo, se o Acumulador cont^m 96H(100101 10), 
ap6s a execu^o de XOR 5DH (01011101), o Acumulador ui 
conter CBH (1 100101 1). 



10 0 10 110 96 H 

© 

01011101 5 DH 



onde r identifica os registradores A, B, C, D, E, H ou L, monta- 11001011 CBH 

dos a partir da tabela 1 . 



Exemplo: 



XOR L 

r=l_ 

| 1 1 1 I 1 I 

10 10 110 1 

— -L J t 1 j 1 1 



> AD 



A instru 9 ao XOR A move zero para o Acumulador. 

12 — Com para Acumulador com operando 

Formato: CP s 

Operagdo: Efetua uma opera^ao de compara^o do conteudo 
do Acumulador com o conteudo do operando s (r, 
n, (HL), (IX+d), (IY+d)). As flags sSo atualizadas 
em fun 9 ao do resultado da compara^o. 

Codigo Objeto: 
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CP 



CP 



CP (HL) 



CP ( I X 4 d ) 



E 


0 


1 


r— 

i 


i 


r 


r 


3 




1 


1 


1 


— 

i 


i 

i 


— 

1 


1 


0 
























. 






' w 


1 


0 


1 




i 


1 


1 


1 


0 




1 


1 


0 


i 


i 


1 


0 


1 


1 


0 


1 


i 


i 


1 


1 


0 



CP <IY*d) 



1 1 


1 


1 


1 


1 


T— 

0 


1 


1 0 


1 


1 


1 


1 


1 


0 


4 . 






ti 














CJ — 









-> fe 



-> BE 



-> OD 



“► BE 



-> FD 



“► BE 



onde r identifica os registradores A, B, C, D, E, H, ou L, mon- 
tados a paxtu da tabela 1 . 

Exemplo: 



CP 



— T T I T T T r 

10 11110 1 

. A -1 1 1 1 1 1 



CP 



40H 



1 


— 

1 


1 


— 

1 


— 

1 


T ' ' 

1 


r— i 
i 


0 


0 


1 


0 


0 


0 


0 

■X. 


0 


0 




Descriqdo: Efetua uma opera^o de compara^o do conteudo 
do Acwnulador com o conteudo do operando s (r, 
n, (HL), (IX+d), (IY+d)). Esta instru^o efetua 
uma subtra^ao do conteudo do Acumulador com o 
conteudo do operando e posiciona as flags com o 
resultado da opera^o, sem alterar o conteudo do 
Acumulador. 



IMSIRUQAO 


01*1 HA g A 0 


CICL0S DC HAOUIHA (H) 


STATES (T) 


CP r 


A: r 


1 


4 


CP n 


A:n 


2 


7(4,3) 


CP (HI) 


A: (HL ) 


2 


7(4,3) 


CP ( IX«tf ) 


A: ( IX. d) 


5 


19(4,4,3,3, 3) 


CP (IV*d) 

1 


A: ( IV. d) 


5 


19(4,4, 3,3. 3) 



Flags afetadas: 



S 

z 

H 



— setada se o resultado i negativo, se- 
n2o i resetada; 

— setada se o resultado 6 zero, senio 6 
resetada; 

— setada se ocorre emprdstimo para 
bit 4, senSo 6 resetada; 

P/V — setada se ocorre overflow, sen£o 6 
resetada; 

N — setada; 

C — setada se ocorre empr^stimo no bit 
7, senffo 6 resetada. 

Por exemplo, se o Acumulador contain 63H, o par de regis- 
tradores HL cont^m 6000H e a posi^Io da memdria 6000H 
cont^m 60H, apds a execu^o da instru^ao CP (HL), todas 
as flags sSfo resetadas, exceto n. 

? 



CompBei 



SISTEMAS E MICROCOMPUT ADORES 



CURSOS 



• Introdupao a Microcomputadores; BASIC dirigidoa estudantes. 

• BASIC I e BASIC II 

• Aplicativos sob re software especffico. 

1 equipamento por aluno. 

• Utilizapaode TK85, Apple II e TK2000. Impressora. 

Cursos Fechados 



VENDA DE EQUIPAMENTOS 



• TK83, TK85, TK2000 e Elppa II Plus. Peritericos. 



SOFTWARE APPLE 



• JACK - texto, arquivo pessoai, calculo e mala direta integradot 
num disco (PORT) 

• BIBLIOTECARIO Orgamzapao de bibliotecas. Pesquisa 40 ar* 
tigos/seg. e arquiva 1000/disco. 

• DATA BASE — banco de dados (PORT) 



Organ 

000/d 






• AUTOCODE I gerador de prog ra mas para DATA BASE . 

• SUPER banco de dados; ftcil. versatil e o mais ripido. 

• LIST HANDLER • cadastro e mala direta; super rtpido; 3000 
arquivos/disco. 

• VISICALC • planilha eletrbnica. 

• MULTIPLAN • planilha eletrdnica multipla. 

• VISIPLOT - VISITREND - gerador de grificos. Estatfstica. 

• SUPERCALC com grjficos. 

• APPLEWRITER processador de textos. 

• Outros, sob consulta. 

• SOFTWARE para HP85. sob consulta. 



RUA GREGOR IO PAES DE ALME IDA. 62 
CEP 06460 • SAO PAULO 



• VILA MA DA LENA • PINHEIRQ6 
• SP • FONE: 66-9667 




CIBERNE 4 a mail avancada e sofisticada linha de so tf ware para microcomputadores, criada 
para livrar voc4 do* inconvenientes de producdes amadoras ou de origem duvidosa. Com 
CIBERNE voc4 ter* uma diversificada linha de programas novos, lancados period teamen te 
em pacotes econdmicos. Com gravaclo profi*ional e em embalagem inviolivel. CIBERNE 
o ferece a vocA garantia total em qualquer lugar do B rasi I . 

PROGRAMAS EM FITA PARA TK-82, 83. 85. CP 200 E COMPATfVEIS 



Com o exclusive) FLASH SISTEM que permite um carregamento 6 ve/e* man ripido 
que o normal, tern qualquer modiftcacao no equipamento 



PROCURE EM SEU REVENDEDOR: 

• CASCA A COBR A/CENTOPElA - Me m«mi ftu, don excitants! jogoi que do um deufto 1 mi habiii 

dads • raciocmio 

• FUNGOS MUTANTES/CRAZY KONG - Pengoeoe vegetaldrdei etecam uma col6nia da humanoa. E 
man. o clAawco Kong agora melhorado a com 3 face* 

• NAVE MAE/GAlACTICA - Datta va/ a inveOo da axtratarraatraa vat deixar voci arrsprado da emodo 
colocendo I prove tua pericie a mteltgftncia 

• DEFENSOR /MAZOGS - Voct dir ige a ultima neve que tents defender uma civllizacio perdida. E o man 
fantfetwo den caca ao tetouro 

• GUERRA AEREA/ALERTA VERMELHO - Dual amocionanta* avantura* a*nw onda voc* pilots um 
caca ou um podaroio bombardairo. 

a ROT-1 PLUS - Increment* ieus program** com aita lantactonal interna operational grffico. uma nova a 

Ml " R0T-I. 



E PARA BREVE: a ESTRELANEGRA 

a 0MERCAD0R • CRISTAL MAGIC0 

a STARQUEST a GUERRILHA C0SMICA 

• ZARAKS • ALTA RESOLUQAO 



a ORCA I (Orcemento Dom4ttrco) 

• ROT II (Compilador A is Detail 
a ARQ I (Arquivo de Dados) 

• CASH FLOW 



E MAIS: 

• VASTA LINHA DE PROGRAMAS PARA DIGITUS. CP 300 
E 500. APPLE E MUITOS OUTROS. 



EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO. 



Informacdes, DistribuigSo e Vendas: 

JVA - MICROCOMPUTADORES LTDA. 

Av. Treze de Maio, 23 - Grupo 1519 - Rio de Janeiro - RJ 
CEP 20.031 Tel.: (021) 262 6968 
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CURSO DE ASSEMBLER-XII 



13 - Increments ope ran do 
Format o: INC m 

Operando: Increments o conteudo do opeiando m (r, (HL), 
(IX+d), (IY+d)). 

Cddigo Objeto: 



INC r 



INC (HL) 



INC ( I X ♦ d ) 



t ■! i i i 

0 0 r r r 1 0 

i i i i ■ -i 1 — 



INC <IY+d) 



(T 


“ — l 
0 


1 


T- 


1 

L. 


0 




1 


0 


3 




1 


1 


0 


T 


r 

1 


— 

1 


1 


0 


1 


0 


0 


r— 

1 




1 


0 


1 


0 


0 










d 








w 





















1 


1 


— 

1 


T 


r 

1 


1 


— 

1 


0 


1 


0 


0 


1 




1 


0 


1 


0 

1 


0 


nr — ' 1 ■ ■ 









_L 


a 






1_ 





-> 3 % 



-> DD 



-> 3% 



-> ro 



3% 



onde r identifies os registisdores A, B, C, D, E, H, ou L, mon- 
tsdos s psxtir ds tsbels 1 . 

Exemplo : 





INC 




L 






, 


r~ 


r v 




E 


0 1 

1 1 1 


0 


r ■■ i ■ t * 

1 1 0 

i i i j 






INC 




(HL) 




E 


1 1 1 

0 1 

1 1 


r 

i 

L_ 


1 1 ' 1 1 

0 1 0 

1 * 1 1 


n 



>2C 



34 



Descriqdo : O conteudo do opersndo m (r, (HL), (IX+d), 
(lY+d)) i incrementsdo. 



14 - Decrements opersndo 
Formato: DEC m 

Operaqno: Decrements o conteudo do opersndo m (r, (HL), 
(IX+d), (IY+d)). 

Cddigo objeto: 



DEC r 



I i ■ r — t 1 i i i 

0 0 r r r 1 0 1 



DEC 



(HL) | 0 ' 0 ' 1 ] 1 0 ' 1 0 l| ► }5 



DEC (IX. d) 



I" ' ~T I » I I » 

110 1110 1 

1 ♦ ♦ < ) ■» — i — 

0 0 110 10 1 

—I 1 — > ♦ ♦ -I - ■■■» — 



-> DD 



-> 35 



DEC <IY*d) 



y T i i i i i 

1111110 1 



0 0 110 10 1 

— I — I — I — I — I — I — h- 



-> FD 



-> 35 



onde r identifies os registrsdores A, B, C, D, E, H ou L, monta- 
dos a partu da tsbels 1 . 



000 para rrr 

001 para rrr 

010 par a rrr 

011 para rrr 

100 para rrr 

101 para rrr 
111 para rrr 



registrador B 
registrador C 
registrador D 
registrador E 
registrador H 
registrador L 
registrador A 



Tabela 1 



insirucao 


OPI HAQAO 


CICLOS 01 MAQUIMA (N) 


SI All S (VI 


INC 


r 


r r«l 


1 


A 


INC 


iML) 


(Ml U-(Ml ).| 


) 


11(4.4.3) 


INC 


(II«A) 




A 


23(4,4, 3,*, 4, 3) 


1MC 


UV«4) 




4 





Flags afetadas: S — setada se o resultado 6 negativo, se- 

nSo 6 resetada; 

Z — setads se o resultado 6 zero, senao 6 
resetada; 

H — setada se vai - um do bit 3, senao 6 
resetada; 

P/V — setada se o operando contdm 79H 
antes da opera^ao, senao 6 resetada; 

N — resetada; 

C - nSoafetada. 

Como exemplo, se o conteudo do par de registr adores HL 6 
6000H, e a posi^ao de memdria 6000H contdm o byte 28H, 
ap6s a execu^o da instru^o INC (HL), o conteudo da posi 9 do 
de mem6ria 6000H ser i o byte 29H, e o conteudo do par de 
registradores HL serd 6000H. 



Exemplo: 







DEC 




L 








r- 








E 


i "i 

0 

i i 


I V 1 

1 0 

i i i 


1 


i i * 

1 0 1 

i , i 


1 ► 2D 






DEC 




(HL) 




E 


0 


i i 

1 1 


0 


1 1 1 

1 0 1 


► 35 



Descriqdo: 0 conteudo do operando m (r, (HL), (IX+d), 
(IY+d)) 6 decrementado. 



INSIRUCAO 


Off RAC AO 


CIC10S Of MAQUIMA (N) 


SI All S (1) 


Die 


r 


r-l 


> 


A 


occ 


(Nil 


(ML)— (Ht)-I 


1 


11(4,4.3) 


Of c 


(11*0) 


(II«4H-(II«4)-1 


A 


23(4,4, 3. >,4,3) 


OfC 


(IY.A) 




A 


23(4,4,3,1,4,1) 
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Flags afetadas: S — setada se o resultado 6 negativo, 

senSo € resetada; 

Z — setada se o resultado 6 zero, senio 6 
resetada; 

H — setada se ocorre empr^stimo do bit 
4 , senffo 6 ressetada; 

P/V - setada se o operando contdm 80 H 
antes da opera^ao, senao 6 resetada; 
N — setada; 

C — nSoafetada. 

Por exemplo, se o registrador D contain o byte 2 AH, apos a 
execu9§o da instru92o: DEC D, o registrador D iii con ter o 
byte 29 H. 

Agora, vamos esquecer urn pouco a seqiiencia dos grupos de 
instru9<5es defirudos pela Zilo& e passar a descrever um grupo 
de instru95es de vital importance para a elabora9ao de qual- 
quer programa^o assembler. No ultimo grupo de instru96es 
descrito, aprendemos a efetuar compara96es; entretanto esta 
instru9ao 6 passiva, ou seja, n£o executa nenhuma a^o no flu- 
xo do processamento. 0 grupo de instru96es que passamos ? 
descrever 6 o grupo de desvios, que efetua a a9^o de desviar o 
fluxo do programa, em fun 9a o de uma compara^o efetuada 
anteriormente. 

Vamos entSo ks instru96es deste grupo. 

1 — Desvio incondicional: 

Formato: JP nn 

Operagao: Efetua um desvio incondicional para o endere90 
especificado na instru9ao. Esta opera9ao se asseme- 
lha ao GOTO do BASIC. 

Cddigo objeto: 



JP nn 

— 1 1 



1 

1 1 


O 

O 

O 

O 


11 




1 9 t | 1 


w 








f 

^ _ 




1 1 









> C3 



Exemplo: 



JP 4063 



~P 


i 


0 

1 — 1 


r— 

0 


0 

1 


0 


r T n 


T 


0 


1 


t 

1 

1 j 


0 


0 

1 1 


0 


r—\ 

1 


1 


0 


1 


t 1 

0 


0 


0 

1 1 


0 


0 


0 



>C3 
> 63 
¥ *0 



Descrigdo: 0 operando nn £ carregado no par de registradores 
PC (Program Counter), que aponta para o endere- 
90 da prdxima instru^o que serk executada. Ob- 
serve que, nos dois bytes do operando em lingua- 
gem de mkquina, o primeiro byte indica o byte de 
baixa ordem do endere90, e o segundo indica o 
byte de alta ordem do endere9o. 

Ciclos de maquina (M): 3 
States (T): 10 ( 4 , 3 , 3) 

Flags afetadas: Nenhuma 

Por exemplo, a instru^o JP 50 A 1 provoca um desvio do 
programa para o endere90 50 A 1 H, isto e, a prdxima instru^o 
executada se encontra no endere9o 50 A 1 H. 



2 - Desvio condicional 
Formato: JP CC, nn 

Operando: Efetua um desvio para o endere9o especificado na 
instru9fo, somente se a condi9ao CC for verdadei- 
ra. Esta opera^o se assemelha ao IF do BASIC. 

Cddigo objeto: 



JP CC n n 



1 

1 1 


CC 


CC 


— 

CC 


r— r 
0 


1 0 

1 












n 




w 






1 * 1 * « 1 1 1 








■ - 


n 


1 




+ 


l ^ ■ ■ ■ ■ ■ r\ 


^ 



onde CC identifica a condi^o da/Zog a ser testada. Se a condi- 
g&o for verdadeua, ou seja, se zflag estiver na condi^o deseja- 
da, o desvio 6 realizado. 



000 


para 


ccc 


= 


para 


FLAG 


NZ 


(Z-0) 


001 


para 


ccc 


= 


para 


FLAG 


Z 


(Z-1) 


010 


para 


ccc 


= 


para 


FLAG 


NC 


(C-0) 


011 


para 


ccc 


= 


para 


FLAG 


C 


(C-1) 


100 


para 


ccc 


= 


para 


FLAG 


PO 


(P/V-0) 


101 


para 


ccc 


= 


para 


FLAG 


PE 


(P/V-1) 


110 


para 


ccc 


= 


para 


FLAG 


P 


(S-0) 


in 


para 


ccc 


= 


para 


FLAG 


M 


(S-1) 



Exemplo: 



CA 
* 63 
> 40 



JP Z, 4063H 



1 


1 


0 

• 


— 

0 


1 


I - " 

0 


1 


0 


0 


1 


1 


0 

1 


0 


0 


1 


1 


0 


1 


0 

1 


0 

l_ 


0 


0 

1 


0 

L _l 


0 



Descrigdo: Se a condi9ao 6 verdadeira, a instru^o carrega o 
operando nn no par de registradores PC (Program 
Counter), e o programa continua na posi9ao dada 
por nn. Se a condi9ao 6 falsa, o Program Counter 6 
incrementado usualmente, e o programa continua 
no seu fluxo natural. 



Ciclos de maquina (M): 3 
States (T): 10 ( 4 , 3 , 3) 

Flags afetadas: Nenhuma 

Por exemplo, se o Carry Flag (Flag C do registrador F) est & 
setado, apds a execu^o da instru^o: JP C, 1520 H, 0 mi- 
croprocessador i li executar a instru^o existente na posi9§o de 
memdria 1520 H. ■ 



Ameury Correa de Almeida Moraes Junior A formado pelo cur so de 
AnAlise de Sistemas da FASP, tendo feito di versos cursos de aperfeicoa- 
mento nas Areas do E/etronica Digital e Microprocessadores, e atua/men- 
te trabalha na Area de microcomputadores para o Citybank. 



MICRO SISTEMAS, janeiro/84 



79 









Do interior de sua nave espacial voce se ve rodeado de virios asterdides. 
Comande com firmeza seu micro da linha Sinclair, pois a coiisao pode ser fata /! 



Cuidado... 



os asteroides vem af 



Sergio Henrique Jarreta 



A ster 6 um programa desenvolvido especiaJmente para os 
microcomputadores compativeis com o Sinclair ZX81. 
Elaborado totalmente em Assembler, permite ser utili- 
zado tanto em equipamentos de 2 ou 16 Kb. 

0 objetivo do jogo 6 simples: voce esti pilotando uma nave 
espacial em meio a uma densa nuvem de asterdides, com os 
quais deve evitar a todo custo colidir. Os unicos comandos de 
que vai precisar s£o as teclas 5 e 8. 

Os pontos vao sendo contados atd que sua nave colida com 
algum asterdide. Quando isto acontece, basta teclar NEW 
LINE (ou ENTER) - o placar 6 zerado automaticamente e o 
jogo se reimcia. Pordm, hi um detalhe: apos cada coiisao a ve- 
locidade da nave aumenta, sendo esse processo repetido 15 ve- 
zes, quando, entao, a velocidade torna-se novamente mais 
baixa. 

Para a digita^ao do programa, siga as seguintes uistru 9 des: 

1) grave o Monitor Assembler publicado em MICRO SISTE- 
MAS numero 23 (agosto de 83); 



2) digite uma linha 1 REM com 61 1 caracteres ap6s REM; 

3) digite uma linha 2 REM com 338 caracteres ap6s REM ; 

4) digite os blocos Assembler; 

5) confira detalhadamente o que digitou; 

6) elimine o Monitor; 

7) digite as seguintes linhas: 

3 SAVE “ASTER” 

4 RAND USR 17296; 

8) prepare a fita para grava^o; 

9) digite RUN 3 e NEW LINE e grave o programa. 

Nao e demais lembrar que a digita^o dos blocos Assembler 
deve ser feita com a maior atencao, pois um unico cddigo erra- 
do pode comprometer o funcionamento normal do programa. 
Por isso, cuidado... e sucesso em sua pilotagem! 



Sergio Henrique Jarreta estuda ProgramagSo na Esco/a COBOL — Cen- 
tro de Ensino. em Santos, e elabora programas nas linguagens Assem- 
bler. COBOL e BASIC. 



Aster — Blocos Assembler 



BLOCO 


_1 
































17026 


23 


36 


04 


C9 


2A 


82 


40 


36 


80 


11 


20 


00 


19 


36 


80 


23 


16514 


00 


00 


02 


10 


LA 


08 


06 


04 


16 


15 


IF 


13 


12 


19 


0E 


14 


17042 


36 


80 


23 


36 


80 


C9 


2A 


OC 


40 


01 


B4 


02 


09 


E5 


01 


21 


16530 


00 


0B 


05 


18 


1C 


0A 


0D 


01 


09 


17 


OC 


ID 


03 


01 


IE 


IB 


17058 


00 


09 


EB 


El 


01 


B5 


02 


ED 


B8 


2A 


OC 


40 


06 


20 


3E 


80 


16546 


07 


OF 


11 


03 


OF 


IB 


09 


07 


05 


17 


16 


01 


14 


13 


1A 


11 


17074 


23 


77 


10 


FC 


C9 


2A 


OC 


40 


11 


FE 


02 


19 


EB 


01 


05 


00 


16562 


15 


01 


OC 


06 


19 


ID 


0B 


0E 


00 


0A 


18 


0D 


IE 


04 


02 


IF 


17090 


21 


49 


42 


ED 


B0 


C9 


21 


C6 


40 


34 


7E 


FE 


43 


C2 


D4 


42 


16578 


1C 


08 


10 


12 


00 


00 


00 


00 


3E 


00 


32 


82 


40 


32 


83 


40 


17106 


36 


00 


21 


84 


40 


ED 


5B 


C6 


40 


19 


7E 


32 


C8 


40 


ED 


Sf 


16594 


CD 


23 


42 


CD 


53 


42 


11 


84 


02 


2A 


OC 


40 


19 


22 


82 


40 


17122 


C8 


40 


C9 




























16610 


CD 


74 


42 


21 


26 


40 


7E 


FE 


F7 


C2 


83 


41 


2A 


82 


40 


23 




































16626 


CD 


37 


42 


FE 


00 


C2 


E5 


41 


11 


22 


00 


19 


CD 


37 


42 


FE 








' 1 




— 


" 




















1,11 


16642 


00 


C2 


E5 


41 


7E 


FE 


76 


C2 


OF 


41 


C3 


A6 


41 


CD 


86 


42 


nr 


O 
































16658 


CD 


98 


42 


21 


82 


40 


34 


CD 


74 


42 


CD 


EB 


42 


2A 


OC 


40 


DLULU 


z 
































16674 


23 


19 


36 


B4 


CD 


C8 


42 


2A 


OC 


40 


23 


19 


36 


9B 


2A 


OC 


17131 


3E 


00 


06 


FF 


00 


10 


FD 


3C 


FE 


OF 


C2 


ED 


42 


CD 


C8 


42 


16690 


40 


01 


02 


03 


09 


34 


7E 


FE 


A5 


C2 


E5 


40 


2B 


7E 


FE 


A5 


17147 


C9 


21 


F 4 


42 


35 


7E 


FE 


00 


C2 


CA 


40 


36 


OF 


C3 


CA 


40 


16706 


C2 


60 


41 


2B 


7E 


FE 


A5 


C2 


64 


41 


2B 


7E 


FE 


A5 


C2 


69 


17163 


05 


80 


80 


05 


80 


06 


03 


03 


80 


80 


80 


85 


80 


80 


02 


03 


16722 


41 


2B 


7E 


FE 


A5 


C2 


6F 


41 


CD 


B7 


42 


C3 


E5 


40 


23 


C3 


17179 


84 


80 


05 


80 


80 


05 


05 


03 


03 


01 


80 


80 


80 


80 


85 


80 


16738 


7C 


41 


23 


23 


C3 


79 


41 


23 


23 


23 


C3 


76 


41 


23 


23 


23 


17195 


80 


85 


80 


80 


85 


80 


80 


80 


05 


83 


87 


81 


80 


86 


82 


84 


16754 


23 


36 


9C 


2B 


36 


9C 


2B 


36 


9C 


2B 


36 


9C 


2B 


34 


C3 


E5 


17211 


80 


85 


80 


80 


80 


80 


80 


85 


80 


80 


85 


80 


80 


80 


05 


80 


16770 


40 


FE 


DF 


C2 


BC 


41 


2A 


82 


40 


2B 


CD 


37 


42 


FE 


00 


C2 


17227 


80 


05 


05 


80 


80 


05 


80 


80 


80 


80 


85 


80 


80 


85 


80 


80 
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A geracao definitiva 6 sempre a prOxima. 




Voc§ s6 descobre o quanto precisa de um Micro-Com- 
putador JR da Sysdata depois que o conhece de perto. 

Vocfc vai ter certeza de que fez um 6timo negbcio ao 
adquirl-lo assim que o colocar na sua empresa ou na sua 
casa. 

O JR da Sysdata 6 r^pido, 6 versStil, 6 compacto. 

APLICAQOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatbrio de clientes, mala direta, 
cSIculos de orpamentos financeiros,controle de processos 
industrials, c&lculos de engenharia, cdlculos de estatlsti- 
cas, funp&es matem£ticas, funpbes Ibgicas em cadeia de 
caracteres (STRINGS), graficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computapio, a comuni- 
capSo entre os departamentos de Empresa, efetuar pro- 
gramas especlficos para cada Empresa. 

E, como se nao bastasse, ele 6 o Micro-Computador de 
menor prepo do mercado 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser t3o econbmico. Mas 6. 

Afinal, ele 6 o mais completo Micro-Computador de sua 
gerapao. 

Inclusive no prepo. 

Voc6 pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 



AV. PACAEMBU, 788 
CEP 01155- TEL: 67.5900 



REVENDEDORES: SAO PAULO /Capital Ad Data 864.8200; ADP System 227.6100; Biicker 881.7995; Cindtica 36.6961; Compumarketing 212.9004; Compute 862.8533; Com 
puteriand 231 3277 Foto L6o 36.7131; Fotdtica 853 0448; Guedes 289 9051; Horst 203.5597; Interface 852.5603; Lema 210.5929; Microrei 881.0022; Miprotec 289 4941; Nova Gera 
c§o 814 3663 O.P.A. 35.8685; Plandata 275.0181; Plante! 543 9653; Sacco 814 0598; Servimec 222.1511; Sistenac 282.6609; S.O.S. 66.7656; Runner's 469 0887 Campina* 
Computer House 852.5855; Computique 32.6322; Microtok 32 4445; Rio Ctaro Com!. Micro Cosmos 34.5801; Ribeirao Prato Compusys 635.1195 Ararat Copec 41.3779; 
Taubat* Ensicon 33 2252 Mogi Guacu Gua<?umaq 261 0236. Bragampa Paulista Infordata 543.5198; Bauru; Marilia Sipro 33.4109; Catanduva Teledalto 22.8119; RIO 
DE JANEIRO /Capital Clap 228.0734; Computique 267.1093; G D M Informdtica 284.8744; JR de G6es 246 4180; Kristian 391 .3166; Suprimento 274 8845; Petrbpolis Foto Oti- 
ca 42.1391 MINAS GERAIS/Ba«o Horizonte • Compucity 226.6336; Computec 225.2617; Kemitron 225.0644; Minas Digital 337.7946; P090* de Caldas Computique 721.5810; 
RIO GRANDE DO SUL/Porto Alegre Advancing 26 1194; Aplitec 24.0465; Digital 24.1411; Microsis 22.9782; Pelotas Sistematika 22.3810; Novo Hamburgo Micromega 
93.4721 PARANA /Curitiba Computique 243.1731; Micro System 232.3533; Morgen 232.0593; Ponta Grossa Grupo Data Memory 24.6191; Londrina Shop Computer 
23 9674 GOlAS/Goiania Casa do Microcomputador 223. 1 165; Grupom 225.8226, SANTA CATARINA / Flor iandpolis * Castro 22.6933; Infotec 23.4777; BRASILIA /Dietrito 
Federal Compushow 273.2128; Digitec 225.4534 MATO GROSSO DO SUL/Campo Grande DRL 382 6487; Video 321.4220 CEARA/ Fortaleza Siscompy 244 4691; 
PARAfBA/Jofto Pessoa Medusa 221 6743; PERNAMBUCO/Recrfe Elogica 241 .1388. 








Na garupa dos videogames e jogos para computadores, surge o joystick, para muitos 
dispensavel, para outros a unica razao de ser dos jogos de movimento 



Joystick 

Fundamental ou acessorio? 



F alar de joystick e nao citar a Ata- 
ri 6 o mesmo que falar em nncro- 
computadores e esqueccr a Radio 
Shack ou a Apple. Apesar de nao ser a 
unica e nem mesmo a melhor industria 
de joystick, a Atari merece ser sempre 
lembrada por ter criado aquele que e ho- 
je o mais difundido controlador de jogos 
do mercado. base para muitas adapta- 
(^Qes e versfles tupiniquins. 

Na verdade, os “profissionais do ra- 
mo M ha muito abandonaram seus joys- 
ticks tipo Atari e tentam, via amigos- 
que-viajam-ao-exterior, acompanhar o 
fantastico desenvolvimento desses aces- 
s6nos nos paises mais adiantados. Afi- 
nal, 1 & fora e possivel encontrar urn au- 



tentico manche para aquele programa 
especial tipo Guerra nas Estrelas, onde 
voce e o piloto de um fantastico ca^a hi- 
per-super-sonico, numa nao menos fan- 
tastica batalha espacial. 

O joystick posto desta forma deixa 
transparecer a sua real concep^ao fun- 
cional e estrutural. que pode ser tradu- 
zida por “uma haste vertical com mo- 
vimentos direcionais, que substitui algu- 
mas teclas ou outros mecamsmos de 
acionamcnto”. Mas por que entao cnou- 
se uma mistica tao grande em torno de 
algo tao simples? Esta 6 uma questao 
que vem a reboque de outra maior: por 
que esta febre por jogos ammados que 
tanto barulho tern causado? S§o pergun- 



tas que nao podem ser respondidas ain- 
da hoje, pelo menos razoavelniente. 

A industria e a propaganda ajudaiam 
a cnar a lenda de que aquele escore ma- 
tingivel se tornana uma constante com 
o novo joystick oitava maravilha do 
mundo. Do sonho a realidade,o desper- 
tar pode ser doloroso, e sobretudo deve- 
se ter cautela, pois tudo isso pode ser 
mais uma arapuca para ingenuos usua- 
nos. 

POR TRAS DO MANTO 

Despido de sua aura, podemos defi- 
nir um joystick como sendo um contro- 
lador de fun^Oes que tern a pretensao de 
agilizar e tornar mais seguras certas 
a^Oes. Ele pode, e tern sido muito mais 
usado desta forma, ser um controlador 
de movimentos em jogos ammados. Mas 
nem todos os jogos fazem dele um que- 
brador de recorder: em alguns ele 6 to- 
talmente dispensdvel e em outros n3o 
fara muita diferen^a tc-lo ou nao. 

Existe tambem o paddle, versao mais 
simplificada do joystick, no qual a ala- 
vanca e substituida por um botao gira- 
t6rio. A movimenta 9 ao das figuras, no 
entanto, 6 feita somente em duas dire- 
^Qes (direita e esquerda), tornando-o, 
neste sentido, menos eficaz. 

Um joystick 6 mecamcamente mui- 
to simples. Ele pode ser construido com 
contatos magneticos ou eletromecam- 
cos, por sensores especiais ou amda com 
a nova borracha semicondutora. Na mti- 
midade, pordm, tudo nfo passa de sim- 
ples interruptores que podem ser con- 
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O comando JOYSTK do Color 64 facilita a liga^do do joystick no equipamento 



cebidos com niuita facilidade. Sua hga- 
qao com o micro ou console de video- 
jogo e que podc causai uma sene de 
aboriccimentos ao usuario. 

Geralmente tal liga^ao e feita por 
uma tomada-RCA, porem nao ha qual- 
quer padronizaqao quanto a pinagem da 
mesma, provocando, dessa forma, algu- 
mas confusOes e uns poucos curtos-cir- 
cuitos. De fato. tudo sena mais facil se 
as industrias fizessem constar no manual 
de seus equipamentos alguma informa- 
qao a respeito desse tipo de hgaqffo. 

Apesai disso, alguns fabneantes ja 
tern mcorporado a seus equipamentos 
sai'das cspcciais. Tais sai'das sab, via de 
regia, “cm paialclo” com o teclado, o 
que de ccrta forma e o mcio mais dire- 
to de se obter uma ligaqSo com o joys- 
tick. 0 Color 64. por cxemplo, possui 
um comando especifico de leitura paia 
joystick (JOYSTK), o que representa 
um avanqo em rclaqao aos micros adap- 
tados. 

A SITUAC, AO NO BRASIL 

No Brasil ainda nao cxiste tecnologia 
c tradiqao suficicntes paia a efetiva fa- 
bncaqao de joysticks. As peqas ainda sao 
impoi tadas. e o que se percebe sao algu- 



mas emprcsas esfor^ando-se em colocar 
o produto no mcrcado, emboia este es- 
for^o, na pratica, ndo se esteja traduzin- 
do em um lluxo normal de produ^ao 
e consumo. 

Isto e simples de constatar : basta um 
giro por algumas lojas de microcompu- 
tadorcs. Joysticks anunciados simples- 
mentc nao sao encontrados: outios fo- 
ram lanqado s na ultima Feu a de In for- 
matted e ate hojc nao se tern noticia de- 
les: e existem tambem casos como o da 
Microdigital. que paiou sua produto 
devido a dificuldade de impoitaqao de 
componcntcs. 

Um joystick custa. quando encon- 
tiado, de Ci $ 18 a 45 nul (no caso dos 
mais sofisticados). O publico consumi- 
dor d muito vanado. “Em geral e o ado- 



lescentc e a cnan^a que ja possui um mi- 
crocomputador, mas ha tambem o exc- 
cutivo que usa seu micro no trabalho e 
que nos fms de semana gosta de bnn- 
qai’\ conta Sonia Aparecida Paganini, 
assistentc de vendas da Computerland. 
Ricardo Magcn Stella, vendedor da Mi- 
croshop. ja acha que a maioi paite das 
pessoas que o procuram sao iniciantcs. 
leigos no assunto. que estao comc^ando 
pelos jogos. 

A existencia de um mercado interno 
e flagrante. Dispensavel ou nao. o fato 
e que o joystick ja esta mcorporado ao 
universo dos jogos eletronicos. Ganhara 
quern acordar mais cedo. 

Pesquisa e apuracao Claudia Salles Ramalho, 
Denise Pragana e Ricardo Inojosa 



Na terra dos videogames 



N os I stados Lnidos. berqo 
c parai'so mundial dos vi- 
deogames. as disponibili- 
dades sao muitas e sc apcrfci- 
v;oam a cada ano. No caso espe- 
ci'fico dos joysticks, eles acom- 
panham a tcndencia geral dose- 
tor dc hardware: a constante 
cvoluqao tccnologica corrcspon- 
dc um decrescimo progressive 
nos prcqos. 

A quahdadc tambem crcscc: 
os novos joysticks de baixo pre- 
^o ja incorporam caractcristicas 
que ate ha bem pouco tempo 
cram pnvilcgio dos modelos 
mais sofisticados. 

A Wico Corporation e o prin- 
cipal fabricantc dc joysticks, 
com a maior c mais divcrsifica- 
da linha dc produtos, dcstmados 
a uma variedade dc marcas dc 
videogames, tais como Atari, 
Commodore c ColccoVision. 




The Boss, joystick tipo avido, da 
Wico 




Trackball, da Roklan 

Lntrc os outros forneccdores de 
renome figuram a Spcctravideo, 
Discwashcr, TG Products, Point- 
master, Roklan c Suncom. alem 
dos propnos fabneantes dc vi- 
deogames e arcades (flipcramas). 
Quanto aos prcqos, acompa- 
nham a sofisticaqao tccnologica 
do produto. vanando, cm me- 
dia, de acordo com levantamen- 
to da revista Electronic Games 
(outubro/83), entre USS 13 e 
USS 50. 

Os formatos desses periferi- 
cos e os tipos dc acionamento 
que utilizam variam bastante. 
destacando-se, porem, alguns de- 
les, a comeqar pelo modelo tra- 




M ou sc com controlador (Wico) 




O Joy board, da Amiga Corpora- 
tion 

dicional, com alavanca reta e bo- 
tao de disparo no corpo do apa- 
relho. Algumas marcas oferecem 
alavanca dc comando do tipo 



aviao, com botao dc disparo in- 
corporado a propria alavanca, 
enquanto que outro modelo bas- 
tantc comum c o paddle, no 
qual a alavanca c substitui'da por 
um botao giratorio. Ambos os 
modelos podem tambem vir 
com ou sem teclado de membra- 
na. 

Tambem muito intercssantcs 
sao os tipos trackball (o conso- 
le c feito atraves de uma esfera 
que permite comandar movi- 
mentos de 360 graus) c o mou- 
se (camundongo). controlador 
no ^ual os comandos dc dire^ao 
advem da movimentaqao do pro- 
prio dispositivo sobre uma su- 
perficic lisa. Fora esses, ha mo- 
delos que tern desde um volante 
- para jogos tipo Formula 1 - 
ate o joy board, uma platafor- 
ma tipo balanqa de banheiro so- 
bre a qual a pessoa controla o 
jogo com os movimentos do 
propno corpo. 
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Quer um parceiro com quem nao precise dividir o premio? Rode o programa 
e deixe que seu micro da linha Sinclair de os palpites por voce 



Os palpites da 
microzebrinha 

Nelson Hisashi Tamura 



T odo bom apostador da Loteria 
Esportiva costuma se armar de 
intrincados esquemas e infaliveis 
calculos estatisticos e de probabilidade 
para marcar seu cartao - e &s vezes o 
bolSo sai para aquele que aposta simples- 
mente na base da sorte e da adivinha^o... 

Mas, se voce quiser, seu micro da linha 
Sinclair poderd ajuda-lo bastante. Do 
jeito que estd, este programa vai marcan- 



do, aleatoriamente,- quantos cartOes vo- 
ce quiser, com apenas uma ressalva: os 
duplos e os triplos ficam por sua conta. 
Agora, se voce tambdm tiver um destes 
esquemas infaliveis , poderd introduzi- 
lo, justamente no trecho responsavel 
pelo sorteio dos palpites aleatdnos: li- 
nhas 240 a 300. 

E como duas cabe 9 as palpitam me- 
lhor que uma, suas chances de alcanijar 



os sonhados 13 pontos aumentam e... 
dd-lhe, zebrinha! 



Nelson Hisashi Tamura 4 estudante do Curso 
T4cnico de Eletrbnica na E.P.S.G. Liceu Bras 
Cubas. Atua/mente traba/ha numa oficina de 
enrolamentos de motores e tetri cos, onde uti- 
lize um CP-200 para arquivo de dados e con - 
tro/e geral da oficina. 



Loteria Esportiva 



1 REM < NEL SON H ISASHI TAMURA > 

10 LET A$ = M KMMkiKidUl]" 

20 LET = 

25 LET = 

30 FAST 

35 P RINT AT 1.0 l imiJUUJ.I 

□HUS I 

40 PRINT AT 0,0; "B" ; C$ ; "S" ; AT 
2,0; "fi" ; D$ ; "B" 

50 PRINT ,,,,,, 

JEM" 

60 PRINT "ITEEQII □ I D Ifi | " 

70 PRINT M " ;A$ 

80 FOR X=*l TO 13 

90 IF X< = 9 THEN LET E$ = "I] 0 H 
100 IF X>=10 THEN LET E$="H " 
110 PRINT M " ;E$;X;B$ 

120 NEXT X 
130 POKE 16418,0 

140 PRINT AT 22,1; A $ 

150 PRI NT AT 0, 22; 'EM 7 mi" n 
T 1,22; "E BIUTX " ; AT 2,22; "EMID 



mi- 

160 PRINT AT 4,21; "OBSERVACAO" ; 
AT 5,21; n Mfi^H n 
170 PRINT AT 7,21; ">0 DUPLO E"; 
AT 8,22; "TRIPLO EH " ; AT 9,22; "COM 
VOCE. " 

180 SLOW 

190 FOR W=1 TO 1000 
200 FOR M=1 TO 3 
210 PRI NT AT 4,4; w CARTAO NET ; W ; 
AT 4,4; 14.111111 
220 NEXT M 
230 FOR N=1 TO 13 
240 LET A=INT ( RND*4) 

250 IF NOT A THEN GOTO 240 
260 IF A=1 THEN LET L=7 
270 IF A=2 THEN LET L=ll 
280 IF A=3 THEN LET L=15 
290 PRINT AT N+8 , L; ’GSH" 

300 NEXT N 

310 PRINT AT 11,22; 'ODEnD”; AT 
13, 22 ; "0 P/OUTRO" ; AT 14,22 ; "F P/ 
FIM H 



320 IF INKEY$="F" THEN GOTO 500 
330 PRINT AT 13,21;*’ >0" ; AT 14,2 
1;- F" 

340 IF INKEY$= H 0 M THEN GOTO 370 
350 PRINT AT 14,21;" ^Q" ; AT 13,2 
1; H 0 H 

360 GOTO 320 
370 FOR N=1 TO 13 
380 PRINT AT N+8,7; H " ; AT N+8 

,11;" " ; AT N+8, 15;" 

390 NEXT N 
400 NEXT W 
500 FOR N=1 TO 14 
510 PRINT AT N+8, 7;’ 



520 NEXT N 

530 PRINT AT 17,21;"M ■ ■ I | ■ 
" ; TAB 2 1 ; "F TT ; TAB 21;"B 

n m ,, ;TAB uj" 

; TAB 21; " Bi ll ■TTi " 

540 GOTO 530 

900 SAVE "LOTERIA" 

999 RUN 
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CompuShop 



Aloja 

especializada 
em solugoes. 



Com um microcomputador voce cria, organiza, preve, promove, 
controla, calcula, gerencia, analisa, arquiva, administra e, tambem se 
diverte. A capacidade e eficiencia de um microcomputador agilizam 
e simplrficam sua vida. Foi para melhor atender as suas necessidades, 
que a CompuShop criou TotalWare, uma infra-estrutura de 
apoio que e tudo que voce e seu micro podem precisar: 
orientacao na escolha do hardware e software, a mais 
completa linha de perifericos e acessorios, literatura 
especializada, suprimentos, cursos e treinamento, alem 
de assistencia tecnica permanente. 

A CompuShop e a unica loja especializada em . 
microcomputadores que possui uma equipe de profissionais 
que garante todo o suporte que os clientes precisam, desde a 
grande empresa ate o pequeno usuario. Venha ate a CompuShop 
e conheca todas essas vantagens de perto. 




CompuSl^op 

Sao Paulo: Rua Dr. M^rio Ferraz, 37-Tel.: (01 1 ) 81 5 00 99 - Telex (01 1 ) 3661 1 BYTE BR 
Av. Presidente Juscelino Kubitschek, 889-Tel.: (01 1 ) 852 77 00 
Londrina: Av. Higienopolis, 465-Tel.: (0432) 23 7 1 10 






Comunicado 


Af ICR0 

1 rl SISTEMAS 
informa aosseus 
leitores, assinantes 
e anunciantes que a 
partir desta edicao 
a revista passara a 
ser impressa em 
papel tipo off set em 
virtude da escassez 
do papel couche no 
mercado nacional, 
causada pel a grande 
expansao da 
export a cao deste 
tipo de papel para 




ajudara a tender as 
metas da politica 
economica do pais. 
Esta medida nao 
afetara a qualidade 
editorial que MICRO 
SISTEMAS vem 
mantendo durante 
seus dois anos de 
existencia, 

inclusive porque 
acrescentaremos 
cadernos de couche 
quando necessario. 
Esta adequacao a 
situacao economica 




do pais visa evitar 
um desmensurado 
aumento no preco de 
capa e tabelas de 
publicidade, o que 
seria contrario a 
politica quesempre 
procuramos manter, 
enfrentando todas as 
dificuldades como 
pioneiros no campo 
de divulgacao 
da Inform a tic a. 

A Direcao 



NAO PERCA NOSSA 
PROXIMA EDICAO! 



0 n° 29 de MICRO SISTEMAS, 
edicao de tevereiro, esta 
cheinho de sensacionais 
artigos e programas para se 
equip ^niento. 

• Aplicagoes em Engenharia 
— calculos de viga, lajes 
etc. 

• inteligencia Artificial , um 



artigo empolgante do 
prof. Antonio Costa 

• e mais: diversos utilitarios 
para voce aproveitar todo o 
potencial de seu 
equipamento. 
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NOVO CP 300 PROLOGICA. 



0 pequeno 
grande micro. 

Agora, na hora de escolher entre um 
microcomputador pessoal simples, de facil 
manejo e um sofisticado microcomputador 
profissional, voce pode ficar com os dois. 

Porque chegou o novo CP 300 Prologica. 

0 novo CP 300 tern prego de o. 
microcomputador pequeno. Mas memoria 
de microcomputador grande. 

Ele \i nasceu com 64 
kbytes de memoria 
^ interna com 

possibilidade de 
expansao de memo- 
ria externa para ate 
quase 1 megabyte. 

E tern um teclado profissional, 
que da ao CP 300 uma versatilidade incrivel. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 





Compativel com 
programas em fita 
cassete ou em disco. 



Pode ser ligado ao seu^aparelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa. ^ , 

Com o CP 300 voce pode 
fazer conexoes telefonicas 
para coleta de da dos, 
se utilizar 
de uma 






Pode ser 
acoplado a uma 
impressora. 






programas em disco. 



0 unico na sua faixa que j«i 
nasce com 64 kbytes de memoria. 



impreSSOra — Pode ser ligado 

e ainda Qispor de todos a um televisor comum 

os programas existentes ou 
permite para o CP 500 ou o 
teiewnicj 0 TRS-80 americano. E o que e melhor: 

’ voce estara apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 

CP 300 Prologica. 

Os outros nao PROLOGICA 

fazem 0 QLie ele faz, BBA m«rocornputack>fes 
pelo prego que ■■■ 

ele CObra. HH Av Eng Ims Carlos Berm 1168 SP 
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Solicite 
demonstraqao 
nos principals 
magazines. 
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Aqui voce tern a mefhor 
iniciagSoem 
microcomputagdo 
que existe. 

O TK 83 jd ensinou mois de 2 milhdes de pessoos. 

Ele 6 multo fdcil de operar Uso o Basic, e a memdria chego 
aid 64 K bytes, e aceita monitor, impressoro e joystick. 

Num instonte vocd voi estor resolvendo problemas 
programondo, ou vencendo os muitos jogos disponiveis. O 
TK 83 nao dsda melhor inicio^do Tambdm d a mais divert ida. 

1 Aqui voc§ ja apiica 
os seus conhecimentos 




Com o TK 85 vocd tombdm pode se divertir muito: ele 
tern dezenos de iogos disponiveis. 

Mos ele jd d mois sofisticodo. Tern software jd pronto. 
Linguogens Basic e Assembler. Teclado tipo mdquino de 
escrever, com 40 teclas e 160 fungdes. 1 6 ou 48 K de 
memdrio RAM, e 10 de ROM. Gravacdoem high-speed , 
e fun^do Verify, pora maior seguran^a. 

Quondo vocd jd estiver opoixonado por 
microcomputoedo, ele voi corresponder totolmente. 




A venda no s boat eotos do romo. lojos especiolitodat do lotovideo tom e grandet mogotme t em ALAGOAS - Moceid. Palmeiro dot Indlot AMAZONAS • Monout BAHIA • Salvador Cl AHA - Forlo- 
leio. DISTRITO FEDERAL Brasilia ESPIRITO SANTO Vltdrla GO IAS GolBnio. MATO GROSSO - Culobd MINAS GERAIS Bel o Horlionte DivlnBpolls. Ito/ubo Juii de Foro Pocos de Coldot SB o 
JoBo Del Rei. TeBfllo O tom. UberlBndio. Uberoba Viqota PARAIBA Compino Grande PAPA BelRm PARANA • Curitiba Londrlno. MorlngB PIKNAMBUCO ■ Recife RIO Of JANEIRO ■ Compos. Nl- 
terdi Novo Frlburgo Petrdpolit. Reiendv Rio de Janeiro Volto Redondo. RIO GRANDl DO SUL ■ Bog4. Conoot. Comios do Sul Ifui Novo Homburgo Pelotot. Porto Alegre Son t Anno do Livromen- 
to Santiago. Santa Rota SBo Leopoldo RIO GRANDE DO NORTE ■ Natal. RONDONIA ■ Porto Velho SAO PAULO Araroquaro Attn A var4 Bauru Bmgui Botueotu Compinos Catanduvo Franco 
Guorulhot. Itu Jocarer Jou. Limelr a. Lins. Manila. Mogi Guofu Mogi dot Crute t. Ourlnhos. Pirodcobo Pirattunungo. PromistBo RioCloro RibeirBo Proto. Sont os Sonfo Sorb dOette Sdo Bor 
nordo do Compo SBo JoBo do Boo Vltta. SBo Sob t do Groma SBo Carlos SBo Jos# do Rio Proto. SBo Jos# dot Compot. $t c A ndr# SBo Poulo Sorocobo Suiono Toubote SANTA CATARINA ■ Blume 
nou Brusque Flonndpoh s Itojai. Jolnville. SIRGIPl ■ Arocofu. Se vocd nBo encontror este equipamento no suo eidode ligue para (01 1 ) BOO 2 55 S5S3 



Aqui voc§ mostra 
tudo o que sabe. 



O TK 2000 Color tern tudo que os 
melhores micros tdm. Men os o pre^o 
Aceito diskette , impressoro (jd vem com 
interface), olta resolucd? irdfica 6 cores 
podendo ser ligado ao stu TV colorido 
ou P&B Tern 64 k de memdrio RAM e 
16 k de memdrio ROM Com excelente 
software disponivel, 

Vocd pooe mostrar tudo o que sabe. 
Sem precisar mostrar muito dinheiro. 
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